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Eliminates Every Bug known to Compilers 


AS well as a few other species 


H.E.L.P. is a completely interactive 
C programming environment with three 
innovative full-sized features that will 
revolutionize the way you write code. 


A Clean Compile — 
Guaranteed! 


S ay Good-bye to all compiler-type 
errors. H.E.L.P. ’s built-in program 
checker (which would embarrass LINT) 
not only hunts down bugs. . . explains 
the proper syntax . . . gives examples of 
usage ... but will even offer suggested 
corrections. If you want, H.E.L.P. will 
even make the corrections for you... 
at the touch of a key. 


H.E.L.P. also finds semantic errors as 
well as poor style and inefficiencies. 
You can even check the portability of 
your code! 


Muiti-Window Editing 


pen as many windows as you want 
. there’s no limitation ...noteven 
your own memory. Because H.E.L.P. 
uses a virtual memory system you can 
create programs larger than your 
machine capacity. 


H.E.L.P.’s very powerfu! editor allows 
you the flexibility to work in several 
windows .. . with several files at the 


same time. . 
e Circle no. 165 on reader service card 


Save Keystrokes 


H undreds of commands are bound 
to the keyboard to give you fast 
execution. 


Always be in Control 


N ot only can you develop code in 
many windows at the same time, but 
you can show (and refer to) important 
definitions in one window while creating 
in another. Or open a window and keep 
notes about your program ...ortypea 
memo... or a letter. 


Increase your Productivity 
by 300% or More..... 


I; you are a novice programmer, you'll 
begin writing code like an advanced 
programmer much faster with H.E.L.P. 


ust imagine what H.E.L.P. will do 
for the ADVANCED PROGRAMMER. 


ou’ll have more time to become 
creative with your algorithm (since 
H.E.L.P. will make sure your code 
compiles the “first time at bat’). 


H.E.L.P. tracks every step you make. 
lf you are not sure about a command, 
just press a key, and you'll get the kind 
of help you need. 





Check These Features 


@ Multi-window environ- @ Intelligent help sub- 


ment — system 

Eerie le a © User-definable key- 
checking x 

© Check syntax, semantic, ¢ Se ; ane : 
type usage, intermodule upports color an 
inconsistencies and monochrome 


@ H.E.L.P. supports the 
full C Language 


portability 
@ Multi-file editing 


NOW IN MS-DOS 
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Everest Solutions, Inc. 
3350 Scott Boulevard 
Building 58 

Santa Clara, CA95051 
(408) 986-8977 


Optotech, Inc. The 814 inch 
ptical Disk Drive 
Is Here! 


Optical Disk Drive 5984 
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Now the biggest name 
in C compilers comes in a size 
everybody can afford. 


Lets C. 


Introducing Mark Williams’ $75 C compiler. Want to explore C programming for the first time? Or just 
on your own time? Now you can do it in a big way without spending that way. With Lets C. 

This is no little beginner's model. Let’ C is a powerful programming tool, packed with all the 
essentials of the famous Mark Williams C Programming System. The one chosen by Intel, DEC, Wang 
and thousands of professional programmers. The one that wins the 

















vst a benchmarks and the reviewers praise: 
MS-DOS “(This compiler) has the most professional feel of any package we tested.. .’—BYTE 
e Fast compact oo plus “Of all the compilers reviewed, (it) would be my first choice for product 
: Se Shida development.” —David W. Smith, PC WORLD 
and extensions And now for more big news. Get our revolutionary csd C Source 
e Full UNIX” compatibility . 
dail conplete libraries Debugger for just $75, too. 
¢ Small memory model Use this coupon or charge by calling toll-free: You can breeze through 
CII IO ee ec oe eee ~~ 85 : 
assembler, archiver, cc | Mark Williams Let’s C | level ignoring clunky 
one-step compiling, egrep, | $75 assembler code 
pr, tail, we : 
e MicroEMACS full screen | Please send me: | Affordable, powerful, 
editor with source : copies of Lets C and copies of csd (C Source Debugger ) | debuggable. Mark Williams 
¢ Supported by dozens of at $75 each. (Ill. residents add 7% sales tax. ) | : : 
third party libraries (_]Check [_] Money Order |_| Visa, MasterCard or | Lets C IS the big name C 
e Upgradeable to C | American Express compiler a4 price you can 
Programming System for | | 
lars scale applications pp Name | handle. Get your hands on 
evelopment itn 
Let’s C Benchmark Done on DOCS aa i . BON. 
an IBM-PC/XT, no 8087. 
Program: Floating Point Ree iiy 5 a Sat Zip 7 Mark 
from BYTE, August, 1983. i Willi ams 
Exec Time in Seconds Card #—___—_—_________ Exp. Date | 
Let’s C 134.20 E | Company 
MS 3.0 347.45 SSI NAR at te i | 1430 West Wrightwood 
eee ahas SD SD EE eS <ecee GD Geniae eons SD SD EN SS SS SO Chicago, Illinois 60614 
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not required. 
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This month’s cover was created 
by West and Moravec Designs. 
The image was created with 
MacPaint and printed on a La- 
serWriter. The background was 
created with an airbrush. 


This Issue 

Pascal, Ada, and Modula-2 are re- 
garded as languages that encour- 
age structured programming. 
This issue presents for each lan- 
guage some code that we hope 
you will find educational, useful, 
or both. We found Terry Ritter’s 
explication of CRCs particularly 
enlightening. 


Next Issue 
For forty years, the fundamental 


| algorithms underlying the de- 


sign of computer software and 


| hardware have been, with a few 


controlled exceptions, sequen- 
tial. Now, even users are coming 
to see the benefits of background 
tasking and print spooling, while 
multiprocessor architectures are 
approaching practicality. But ap- 
plication concurrency and multi- 
processor designs will only 
scratch the surface of parallel- 
ism until we recast algorithms in 
parallel. Is some new Knuth 
even now writing the book on 
parallel algorithms? 





- Thisis forall the powerusers 
echnologies before they 


Other than Steve Wozniak and Jonathan 
Rotenberg, there are probably only 2,998 personal 
computer users who qualify as trend setters. 
They’ re the people who owned Apples” when 
everyone else thought Apple® was a record label. 
People who were called hackers when a hacker was 
someone no one wanted to play golf with. 

However many of you there are, this ad is for 
you. It’s been designed and written to introduce you 
to a new technology without using superlatives or 
words like revolutionary. (We’re saving those words 
for future ads targeted at the general consumer) 

The new technology is called the Softstrip 
System. This ad tells you what it’s all about. 

THE SOFTSTRIP SYSTEM ENCODES DATA 
ONTO PAPER. 

Softstrip technology allows text, graphics, 
even digitized sound to be encoded on a strip of 
paper. Providing an alternative to magnetic media 
and telecommunications for the recording, distri- 
bution and retrieving of information. 

These data strips, each a structured pattern 
of black and white rectangles that look something 
like a condensed bar code, can be encoded with 
special software and read with a scanning device 
called the Cauzin Softstrip System Reader. The 
reader optically scans the strip, translates 
its contents into 8-bit code and 
feeds it into a personal 
computer's serial or cassette 
port, enabling automatic, 
error-free entry of printed 
data without using 


a keyboard. Pre-Amp Electronics 


Near Infra-red Light Emitting Diode 


publishers) , or by using a laser or dot matrix 
printer and special software (appropriate for per- 
sonal or business use). 

If you want, you can 













THE ANATOMY OF A STRIP. 
A Softstrip data strip contains not only 
(1) Software or data, but also information 
about its content, including 


generate strips that can file types, file name and the 
be reproduced on a number of strips. Because 
copier or versions (2) i Ht | M WW | | | | | ll | of its inherent technology, 
that can’t be. Either strips are as accurate 
a 1 a 1 
way, any data strip, : i ih fi as any magnetic 
whether it’s printed ih Hi : ifr Ii | i Att | (4) medium. And they can 
ina newspaper, (3) i i I \ na i i [ I; * i be entered into an 
magazine or personal a IBM PC® Apple II® or 
letterhead, can survive =f i if i Ih i Hi Nh : i Macintosh® computer 
pen marks, scratches, : : ih a ; Ht ie i i it dye ral ie i ide using the same reader 
even coffee stains. qt) B 4 'all ‘ll ts ‘a i} uit with only slightly 
Basically, anything sania at ea (5) — modified commu- 
you can put on a magnetic disk you can put on nications software. 


a Softstrip data strip, which should suggest 
numerous application possibilities. 

Starting in the next two months, data strips 
will appear in magazines, journals and books. 
These strips will contain program listings, tables of 


160 Lenses for Controlling Speed 









Eight Lenses on Rotating Cylinder 


Light Pipe 


Corrector Lens 


Rotating Lens 


Strips encode data bit by bit using highly 
structured optical patterns. The bits are each com- 
posed of two rectangles called di-bits. They func- 
tion as optical on/off signals. White/black equals 1. 


Black/vhite equals 0. 
Data is organized 
in lines. Each line, 
between 0.01 and 0.04 
inches high and from 
0.5 to 0.76 inches wide, 
contains from two to 
six bytes of data. Line 
width and height are 
varied depending - 
upon the quality of 
the paper and printing 
process. The reader 





One Softstrip data strip, typically */s” x 91/2”, 
can contain up to 5,500 bytes of information. (For 
example, you could fit this entire ad on two strips.) 

Strips can be printed by using a photo- 
graphic negative (ideal for book and magazine 


from bank statements to sheet music. 


Light Pipe 


Reader Case 


Truck Chassis Drive Wheel 


Eventually, strips may be used for everything 


().0025 inches apart providing between four and 


contents, new product demonstrations and data. scans each data line with a series of raster scans 


sixteen scans per line. 


who want to know about new 
become household words. 


reader logic, control and communications using 
four nested phase locked loops and several hard- 
ware and software servos. The reader transmits 
data to the host at 4800 baud burst rates with 
throughput of 1500 baud. 

HOW TO CREATE YOUR OWN STRIPS. 

There are two ways to create Softstrip ” data 
strips. For large volume and greater density — up 
to 5500 bytes per strip —a film negative is created 
using special Cauzin software 
and hardware. This is ideal 
for book, magazine, 


A close-up view of a strip reveals five distinct 
sections. The header (1) at the top tells the reader 
the number of bytes in a line, the height of each 
line, and the paper to ink contrast level. Running 
vertically down the sides of the strip are the 
startline (2), the checkerboard (3) and the rack 
(4). They identify the boundaries of every hori- 
zontal line to be read. They also work in tandem 
to feed the reader alignment information. 

Contained within the body 
of the strip, between the checkerboard 
and rack, is the file’s 











data area (5). newsletter, data base 
Stripdataaccuracy ce _ and commercial 
is checked and error | oo __ software publishers 
correction is provided : : | who can reproduce 
by parity bits at the begin- a strip in volume 
ning and end of every _ using web, offset, 
data line, as well as by a _ gravure or simi- 
strip checksum. There is __ lar processes. 
also an optional 16 bit | __ Forpersonal or 
CRC. Combined, this __ business applica- 
design results in an ' tions 500 to 1000 
undetected bit error rate byte strips can be 


of less than one bit error per 10,000,000,000 bits. 
IT TOOK GUTS TO BUILD THE READER. 
Rated for 25,000 reads, the reader is an 


generaied using Cauzin licensed software on dot 
matrix printers; up to 3400 byte strips can be 
generated using other Cauzin licensed software 












equally impressive technology. It’s composed of and laser printers. 

two key components: the case and the truck. In the next few months, you should start to 
While the case sits still, the truck moves uniformly see data strips appear 

down the length of the strip making a complete in popular computer 

scan of the strip’s di-bit lines every 0.0025 inches. magazines, some 


As the truck moves down the strip, it tracks 
its own lateral movement within five microns. 
Alignment is controlled by two servo mechanisms. 
As the truck moves, it illuminates the area to be 
scanned using near infra-red light beamed through 
a light pipe. (The infra-red technique permits the 
reader to see through colors, stains, and spills.) 

The reader’s optical scanning system, 
containing eight rotating cylindrical lenses and 
an aspherical corrector lens, forms an F.12 
optical system with a depth of field between 
0.05 and 0.08 inches. A set of 160 addi - 
tional cylindrical lenses on the rotating 
lens allow the system to control 
scanning speed. 

Inside the reader, the mechan - ie 
ical system uses six AGMA-7 high i 
precision plastic molded gears to : 
provide very accurate truck movement. 
One gear system even allows for a 4000 
to langle reduction with no backlash 
for corrector lens alignment. 

ATMS 7040 8-bit processor and 
Cauzin’s own custom VLSI chip provide 


new computer 
books, and those 


consumer ads we 
told you about ' i 
earlier. They'll look i 1 
exactly like the ahi i 
working strip you 

see here, a medium 
density strip with 

an ASCII text 

file on it. 

Of course: 
you'll be able to 
purchase a reader 
at most computer 
dealers. They'll be 
selling for about 
$200.00. Contact 
your dealer soon 
for a demonstration. 
Or call us directly 
at 203-573-0150. 
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Apple® and Macintosh® are 
registered trademarks of 
Apple Computer Inc. 


Apple® is a registered trademark 
of Apple Records, Inc. 


Softstrip® and the Softstrip® 
System Reader are trademarks 
of Cauzin Systems, Inc. 
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Cauzin Systems, Inc., 
835 South Main St., Waterbury, CT 06706 
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EDITORIAL 


eae 


t's December 23 
as I write this, 
and |m hurry- 
ing to get this note to 
you before skipping 
out for the holidays. 

When you read 
this, we expect to be 
in the middle of mov-. 
ing into Our spacious 
new offices at 501 
Galveston Dr., Red- 
wood City, CA 94063. You should 
send any correspondence there. 

Our editorial calendar (see below) 
indicates what topics we intend to go 
after this year. But the calendar 
doesn't tell the whole story. It doesn't 
include, for example, coverage of 
networking issues, cryptography, 
and memory-resident standards, all 
of which well be looking into in 
1986, nor does it mention other topics 
that you will surely think of. Send us 
your ideas. 

Allen Holub wanted to pass along 
this suggestion: DDJ writers and col- 
umnists are often more than happy 
to respond to letters from readers. 
Your chances of getting a response 
are increased if you include a self-ad- 
dressed, stamped envelope. You can 
also reach our columnists via our 
Electronic Edition. 

Frank DeRose, our special projects 
editor, is coordinating the editorial 
aspects of our new book line and of 
the Electronic Edition of DDJ on Com- 
puServe. Frank spells out in this issue 
what we intend to do with our on- 
line publishing experiment. When 
you read this, some details of imple- 
mentation will probably be different 
from what he says here, writing as 
he was before Christmas. Print has its 
limitations, which is why were ex- 
ploring electronic publishing. Log on 
to find out what's really happening 
there. 

We're also doing the groundwork 
for an ambitious software review 
program. You won t see the results of 
this until midyear, but last August’s C 
review and the review of program- 








mable editors in No- 
vember indicate the 
direction well be 
taking: comparative 
reviews of many 
products; more than 
one programmer 
evaluating the prod- 
ucts; using the most 
useful and objective 
sets of benchmarks 
we can coax and co- 
erce veteran programmers into de- 
veloping for us; and regular updates 
and bug reports on the reviews 
themselves. We've wisely promoted 
Sara Noah Ruddy (our erstwhile edi- 
torial assistant) to assistant editor 
with responsibility for coordinating 
this whole review process. 

The other member of the editorial 
staff whose name you should know 
is Vince Leone, our managing editor, 
who puts the pieces together every 
month. Vince, Sara, Frank, Allen, and 
I will probably be joined by one 
other editor in the next month or 
two. I'll let you know. 

One final note: we owe you an arti- 
cle. In January, we promised a look 
at a program that ports between dia- 
lects of Pascal. This month was 
packed, and we didn't have room for 
everything; watch for it in March. 


1986 editorial calendar 

March: The future of programming; Arti- 
cle deadline: past. 

April: AI. Deadline: past. 

May: Designing usable software. Dead- 
line: past. 

June: Communications. Deadline: 3/1/86. 
July: Forth. Deadline: 4/1/86. 

August: C. Deadline: 5/1/86. 

September: Algorithms. Deadline: 6/1/86 
October: 80286/80386 programming. 
Deadline: 7/1/86 

November: Graphics. Deadline: 8/1/86 
December: Operating systems. Deadline: 
9/1/86 


Fd Sime 


Michael Swaine 
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The C for Microcom 


puters 


ZC: 
yp =v L P PC-DOS, MS-DOS, CP/M-86, Macintosh, Amiga, Apple II, CP/M-80, Radio Shack. 
Commodore, XENIX, ROM, and Cross Development systems 





Manx Aztec C86 
‘A compiler that has many strengths ... 
for serious work” 

Computer Language review, February 1985 


Great Code: Manx Aztec C86 generates ‘fast executing 
compact code. The benchmark results below are from a 
study conducted by Manx. The Dhrystone benchmark 
(CACM 10/84 27:10 pl1018) measures performance for a 
systems software instruction mix. The results are with- 
out register variables. With register variables, Manx, 
Microsoft, and Mark Williams run proportionately faster, 
Lattice and Computer Innovations show no improve- 
ment. 


guite valuable 


Compile/ 
Link Time 


Execution Code 
Time Size 


Dhrystone Benchmark 
Manx Aztec C86 3.3 34 secs 5,760 
34 secs 7,146 


93 secs 
119 secs 
172 secs 
113 secs 
117 secs 


Microsoft C 3.0 
Optimized C86 2.20) 53secs 11,009 


Mark Williams 2.0 
Lattice 2.14 


56 secs 12,980 
89 secs 20,404 





Great Features: Manx Aztec C86 is bundled with a powerful 
array of well documented productivity tools, library routines 
and features. 


Optimized C compiler Symbolic Debugger 

AS86 Macro Assembler LN86 Overlay Linker 
80186/80286 Support Librarian 

8087/80287 Sensing Lib Profiler 

Extensive UNIX Library DOS, Screen, & Graphics Lib 
Large Memory Model Intel Object Option 

Z (vi) Source Editor -c CP/M-86 Library -c 

ROM Support Package-c INTEL HEX Utility -c 
Library Source Code -c Mixed memory models -c 


MAKE, DIFF and GREP -c Source Debugger -c 
One year of updates -c CP/M-86 Library -c 


Manx offers two commercial development systems, 
Aztec C86-c and Aztec C86-d. Items marked -c are 
special features of the Aztec C86-c system. 


Aztec C86-c Commercial System $499 
Aztec C86-d Developer’s System $299 
Aztec C86-p Personal System $199 
Aztec C86-a Apprentice System $49 


All systems are upgradable by paying the difference 
in price plus $10. 


Third Party Software: There are a number of high qual- 
ity support packages for Manx Aztec C86 for screen 
management, graphics, database management, and soft- 
ware development. 


C-tree $395 Greenleaf $185 
PHACT $250 PC-lint $98 

HALO $250 Amber Windows $59 
PRE-C $395 Windows for C $195 


WindScreen $149 FirsTime $295 
SunScreen $99 C Util Lib $185 
PANEL $295 Plink-86 $395 


Lattice TM oo ifs ome orn Faircom, tnc., 
fase ama Suniec, 
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Manx Aztec C68k 
“Library handling is very flexible ... documentation is 
excellent ... the shell a pleasure to work in... blows 


away the competition for pure compile speed... an ex- 
cellent effort.” 


Computer Language review, April 1985 


Aztec C68k is the most widely used commercial C com- 
piler for the Macintosh. Its quality, performance, and 
completeness place Manx Aztec C68k in a position be- 
yond comparison. It is available in several upgradable 
versions. 


Optimized C Creates Clickable Applications 
Macro Assembler Mouse Enhanced SHELL 
Overlay Linker Easy Access to Mac Toolbox 
Resource Compiler UNIX Library Functions 
Debuggers Terminal Emulator (Source) 
Librarian Clear Detailed Documentation 
Source Editor C-Stuff Library 

MacRam Disk -c UniTools (vi,make,diff,grep) -c 


Library Source -c One Year of Updates -c 


Items marked -c are available only in the Manx Aztec 
C86-c system. Other features are in both the Aztec C86-d 
and Aztec C86-c systems. 


Aztec C68k-c Commercial System $499 


Aztec C68d-d Developer’s System $299 
Aztec C68k-p Personal System $199 
C-tree database (source) $399 
AMIGA, CP/M-68k, 68k UNIX call 
Manx Aztec C65 


“The AZTEC C system is one of the finest software 
packages I have seen” 
NIBBLE review, July 1984 


A vast amount of business, consumer, and educational 
software is implemented in Manx Aztec C65. The quality 
and comprehensiveness of this system is competitive 
with 16 bit C systems. The system includes a full optim- 
ized C compiler, 6502 assembler, linkage editor, UNIX 
library, screen and graphics libraries, shell, and much 
more. The Apple II version runs under DOS 3.3, and 
ProDOS, Cross versions are available. 

The Aztec C65-c/128 Commodore system runs under 
the C128 CP/M environment and generates programs for 
the C64, C128, and CP/M environments. Call for prices 
and availability of Apprentice, Personal and Developer 
versions for the Commodore 64 and 128 machines. 


Aztec C65-c ProDOS & DOS 3.3 $399 


Aztec C65-d Apple DOS 3.3 $199 
Aztec C65-p Apple Personal system $99 
Aztec C65-a for learning C $49 


Aztec C65-c/128 C64, C128, CPIM $399 


Distribution of Manx Aztec C 


In the USA, Manx Software Systems is the sole and ex- 
clusive distributor of Aztec C. Any telephone or mail 
order sales other than through Manx are unauthorized. 
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To order or for information call: 


800-221-0440 


Cross developed programs are edited, compiled, assem- 
bled, and linked on one machine (the HOST) and trans- 
ferred to another machine (the TARGET) for execution. 
This method is useful where the target machine is slower 
or more limited than the HOST, Manx cross compilers 
are used heavily to develop software for business, 
consumer, scientific, industrial, research, and education- 
al applications. 


HOSTS: VAX UNIX ($3000), PDP-11 UNIX ($2000), MS- 
DOS ($750), CP/M ($750), MACINTOSH ($750), 
CP/M-68k ($750), XENIX ($750). 


TARGETS: MS-DOS, CP/M-86, Macintosh, CP/M-68k, 
CP/M-80, TRS-80 3 & 4, Apple II, Commodore C64, 
8086/80x86 ROM, 68xxx ROM, 8080/8085/Z80 ROM, 
65xx ROM. 

The first TARGET is included in the price of the HOST 
system. Additional TARGETS are $300 to $500 (non 
VAX) or $1000 (VAX). 

Call Manx for information on cross development to the 
68000, 65816, Amiga, C128, CP/M-68K, VRTX, and 
others. 


Manx Aztec CI 
‘Tve had a lot of experience with different C compilers, 
but the Aztec C80 Compiler and Professional Develop- 
ment System is the best I’ve seen.” 

80-Micro, December, 1984, John B. Harrell III 


Aztec C II-c (CP/M & ROM) $349 
Aztec C II-d (CP/M) $199 
C-tree database (source) $399 
Aztec C80-c (TRS-80 3 & 4) $299 
Aztec C80-d (TRS-80 3 & 4) $199 
How To Become an Aztec C User 


To become an Aztec C user call 1-800-221-0440 or call 
1-800-832-9273 (800-TEC WARE). In NJ or eutside the 
USA call 201-530-7997. Orders can also be telexed to 
4995812. 

Payment can be by check, COD, American Express, 
VISA, Master Card, or Net 30 to qualified customers. 

Orders can also be mailed to Manx Software Systems, 
Box 55, Shrewsbury, NJ 07701. 


How To Get More Information 

To get more information on Manx Aztec C and related 
products, call 1-800-221-0440, or 201-530-7997, or write 
to Manx Software Systems. 


30 Day Guarantee 

Any Manx Aztec C development system can be return- 
ed within 30 days.for a refund if it fails to meet your 
needs. The only restrictions are that the original pur- 
chase must be directly from Manx, shipped within the 
USA, and the package must be in resalable condition. 
Returned items must be received by Manx within 30 
days. A small restocking fee may be required. 


Discounts 

There are special discounts available to professors, 
students, and consultants. A discount is also available on 
a “trade in” basis for users of competing systems. Call for 
information. 7 
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Columns 

Dear DDJ, 

Allen Holub’s C Chest arti- 
cle on recursive descent 
parsing (September 1985) 
was very interesting but 
contained an inaccurate 
grammar that gives erro- 
neous results such as: 


2*3+1= 8 

(should be evaluated as 
(2*3)+1 = 7) 
6—5—4=5 


(should be evaluated as 
(6—5)—4 = —3) 


A correct grammar for 
expressions is found, in 
one form or another, in ev- 
ery book on compiling. I 
_ will show how the rather 
_ unintuitive final form is 
reached by proceeding in 
small steps. 

A very simple grammar 
is given by the following 
rules: 


Bei 
A Sete Te 

where E and n stand for 
expression and number re- 
spectively, and A stands 
for arithmetic operator. 
This grammar is ambigu- 
ous; as)’ 6-5-4: carn. be 
parsed in two valid (but 
different) ways: 


In each case, the parenthe- 
sised symbols form an ex- 
| pression, and the two ex- 
pressions are linked by an 





arithmetic operator. We 
need a rule to introduce as- 
sociativity, i.e., to ensure 
the first parse of 6—5—4. 
Rule (5) in Figure 6 of the 
article attempts to do so 
but introduces the wrong 
associativity: 


E ::= F-E 


forces the incorrect parse 
6—5—4=6—(5—4) 


Inverting the order in rules 
(2) to (5) will solve the asso- 
ciativity problem. This 
leaves us with a second 
problem. We want both 
2*3+1 and 1+ 2*3 to evalu- 
ate as 7. This is because in 
mathematics multiplica- 
tion and division have a 
higher precedence than 
addition and subtraction. 
To achieve this we intro- 
duce two new nontermin- 
als, term and _ factor. 
Roughly speaking, terms 
are things that get added 
(or by extension subtract- 
ed) together, while factors 
get multiplied (or divided). 
The resulting grammar is: 









(ata 
am ee 


_— = o = ~>+--—- 


tes ee TT te Ei 
fae PR EVE TE 
Mote” PET ony Ci) UB) 


4 
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This grammar is correct. It 
will not parse 2*3+1 as 
(2)*(3+1) because that 
would be an expression 
multiplied by an expres- 
sion, not one of the valid 
ways of forming an ex- 
pression. 

Though correct, this 
form is not suitable for 
parsing by recursive de- 
scent. There is no way to 
“get at’ the first piece to 
start the recursion. The 
grammar given by Holub 
allowed us to start expr( ) 
with (to evaluate 6—5—4): 


Ival = factor‘); 
Ival — = expr(); 


Our grammar would seem 
to require: 


lval = expr( ); 
lval — = factor‘); 


So expr( ) would call itself 
in an infinite loop. The 
grammar must therefore 
be modified as follows: 





THEKE ! 


IS THAT BRIGHT 
» Enough fOR Jeu ¢ 











= TE’ 

+ TE’! —TE’ tNULL 
EE 

*FT’ | /FT’ | NULL 
ni—ni(E)it —(E) 
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oe 
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E’ and T’ are the new non- 
terminals required to 
make the basic grammar 
parsable by recursive de- 
scent. They allow us to 
split off a piece to get 
started. 

Note that the definition 
of a factor is unchanged, so 
the code for factor( ) and 
constant( ) will not need to 
be modified. 

Mohamed el Lozy 

Health Sciences Com- 
puting Facility 

665 Huntington Ave. 

Boston, MA 02115 


DIsnDATa 
Dear DDJ, 
In your November 1985 is- 
sue on page 89, you ran an 
ad for a disassembler writ- 
ten by C. W. Medlock of 
PRO/AM SOFTWARE. On the 
basis of claims made in the 
ad, I purchased this prod- 
uct for the price of $145. 
To my sorrow, when I 
received this software and 


_ tried it, I found that, for the 


vast majority of programs, 
it does not correctly locate 
the data and code areas as 
claimed in the ad. Instead, 
it invariably outputs large 
segments of code areas as 
data. What is worse is that 
there are no switches in the 
program to override the 
automatic ‘‘algorithm”’ 
when this occurs, nor is 
there any provision for tell- 
ing the program where the 
data and code areas are if, 
as is usually the case, you 
happen to know this infor- 
mation. The only recourse 
you have, as described in 
the 20-page manual sup- 
plied with the program, is 
to do a series of binary 
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PCUNIX™ is a true multitasking, multiuser operating 
system similar to the popular UNIX® operating system for 
AT&T, selling for thousands of dollars more. It includes 
nearly 50 utilities, designed to make your program 
development a snap. 

PCUNIX™ runs most MS-DOS and PC-DOS programs, so 
that you'll never have to buy another set of development 
tools! You can use existing compilers, linkers and editors. 
Programs run under PCUNIX™ can use MS-DOS system 
calls plus over 70 enhanced system services found in our 
Operating System Toolbox™ You get 4 DSDD disks jam 
packed with the source code to the shell and all utilities 
hand crafted in Microsoft “C”’. 

The source code to the Kernel comes with Operating 
System Toolbox™ sold separately. 
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PCVMS™ is Wendin’s version of the popular VAX/VMS 
operating system, which was developed by Digital 
Equipment Corporation for their line of VAX computers. 
PCVMS™ turns your IBM-PC, XT, AT or true compatible into 
a supercharged, multitasking, multiuser workstation that 
runs MS-DOS and PC-DOS programs. Programs run under 
PCVMS™ can use MS-DOS system calls plus over 70 
enhanced system services found in our Operating System 
Toolbox™ 

PCVMS™ comes with full source code to the PCVMS™ 
shell and its utilities, hand crafted in “C”, and supports up 
to 3 users using additional serial terminals. 

The source code to the Kernel comes with Operating 
System Toolbox, sold separately. 
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XTC® is the world’s first multitasking editor for the IBM- 
PC. It also runs on IBM-XT and IBM-AT computers, as well 
as true compatibles. Designed BY programmers FOR 
programmers, XTC is the ultimate editing tool for software 
developers using C, PASCAL, ASSEMBLY, BASIC, 
FORTRAN, and other languages. 

Why is XTC® the ultimate tool for editing in YOUR 
development environment? Because it has powerful 
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blinding speed that leaves other editors in the stone age. 


XTC® comes with full source code written in Microsoft 
Pascal, on 3 DSDD disks. 
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software tools affordable. 
PC-DOS is a trademark of IBM 
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Unix is a trademark of AT&T 

VAX/VMS is a trademark of Digital Equipment Corporation 

Wendin and XTC are Registered Trademarks of Wendin, inc. 

PCVMS, PCUNIX, and Operating System Toolbox are Trademarks of Wendin, Inc. 
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patches to the executable 
file for each area of code 
the program doesn't find. 
Needless to say this is a 
lengthy and time-consum- 
ing process. In addition, | 
found that for some input 
programs the disassembler 
hangs the computer so that 
a reboot is necessary. 

Gerald Coquin 

132 Rotary Dr. 

Summit, NJ 07901 


Of Interest 

Dear DDJ, 

In reading through the No- 
vember 1985 issue of Dr. 
Dobb’s Journal, I ran across 
a notice concerning our C- 
Link product. We are 
pleased, of course, to be 
mentioned in your publi- 
cation; however, the infor- 
mation in Alex Ragen’s Of 
Interest column is out of 
date. 

During the past few 
months since the last news 
release was issued, we 
have changed our market 
strategy in response to the 
lack of Unix and C experi- 
ence among users. The 
main focus of our market- 
ing effort is to use C-Link as 
a tool to provide a transla- 
tion service. We will con- 
tinue to offer C-Link as a 
product but only to users 
willing to be trained in its 
usage. When sold in this 
manner, the cost is $4,995 
plus $195 for additional 
run-time licenses. 

Please contact me direct- 
ly if you would like more 
information about either 
the C-Link product or 
service. 

James R. Getzinger 

Software Manufactur- 

ers Inc. 

20720 S. Leapwood Ave. 

Carson, CA 90746 


Fgrep 


Dear DDJ, 
I wish to express my appre- 
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ciation for the excellent. ar- 
ticle by lan Ashdown in the 
September 1985 issue cov- 
ering FGREP.C. This article 
has been very enlightening 
to me in actually applying 
the algorithms to construct 
finite state automata as out- 
lined in the Aho and UII- 
man book Principles of 
Compiler Design and re- 
ferred to by Mr. Ashdown 
in the discussion of the 
FGREP.C program. 

I have adapted the Unix 
C program for the BDS com- 
piler and library for my 
Z80 machine and in this 
process have encountered 
two items in the source 
program that I wish to 
comment upon—they may 
be important because of 
their possible nonportable 
nature. 

First, I would like to take 
exception with Mr. Ash- 
down’s use of the defini- 
tion of TRUE as (—1). I sug- 
gest that this usage is not in 
the ‘“‘spirit of C’ and is out 
of context with the clearly 
defined usage of relational 
and logical operator re- 
turns in C, which K & R 
guarantees to be 1 for TRUE 
and 0 for FALSE when mak- 
ing explicit comparisons. 
Mr. Ashdown’s use of (—1) 
may be a legacy of assem- 
bly-language program- 
mers, and its use in the pro- 
gram on a stand-alone basis 
poses no problems, but it 
certainly plays havoc if 
other standard headers are 
used and TRUE gets rede- 
fined. For levity and con- 


#define 
*define 
main( ) 
{M8 


TRUE 
FALSE 


if(TRUE = =!FALSE) 


else 


dign punishment, I suggest 
that Mr. Ashdown compile 
and run the program 
shown in Table 1, below. 
Second, I had a problem 
with the stoupper( ) rou- 
tine in that the resulting 
string lost its first letter in 
being put to uppercase. It is 
suggested that this routine 
is nonportable and compil- 
er-dependent. The prob- 
lem stems from the intu- 
itive use of post-increment 
on the left side of an assign- 
ment expression, expect- 
ing the assignment to be 
made before the post-in- 
crement. The strict con- 
structionist interpretation 
of operator precedence 
has the post-decrement op- 
erator higher than assign- 


- ment and has the compiler 


reduce the left side of the 
expression below before 
the assignment operation 
is performed: 


“Nemnp+ +. = 
toupper(temp); 


This results in a loss of a 
character. The order of 
evaluation is not defined 
by K & R in this case, and 
few books on C discuss 
these sorts of statements 
wherein the order of eval- 
uation is not defined. 
These are pernicious 
when they seem so intu- 
itive. Other cases, such as: 


array[x] = +-+x; 


which is not defined is, I 
suggest, easier to recognize 


puts(‘‘\nAll’s right with the world.’’); 


puts(‘‘\nThe world is upside down.’’); 


Table 1 





intuitively and less likely 
to be applied by a C pro- 
grammer. 

It may be of use for DDJ 
to list, for example, these 
cases of evaluation-sensi- 
tive expressions that are 
not defined in K & R and 
lead to nonportability. 

Justin Farnsworth 

65 rue Chauveau 

92200 Neuilly, France 


Unix 

Dear DDJ, 

I am amazed at the number 
of products, advertised in 
your magazine and else- 
where, that are designed to 
make MS DOS look more like 
Unix. So far, I’ve seen a va- 
riety of text editors made 
famous under Unix, a 
plethora of C compilers, a 
word processing package 
that bears strange similar- 
ities to nroff, and an imple- 
mentation of make. There 
is reportedly a package that 
implements the Bourne 
shell and comes with a va- 
riety of utility programs, 
such as diff and grep. You 
can even buy a LALR(1) 
parser generator (a freebie 
under Unix called yacc). All 
of this is in addition to the 
many features of MS DOs it- 
self that were, uh, bor- 
rowed directly from Unix 
without so much as one 
word of 
acknowledgement. 

One could spend several 
thousands of dollars equip- 
ping an MS DOS machine 
with all these programs, 
and the result would still 
not approach the power of 
Unix. A purchase of Xenix 
seems to me to be the best 
buy in the software mar- 
ket. It is the most useful 
piece of bundled software 
I've seen. 

David F. Ziffer 

Software Development 

Systems 
3110 Woodcreek Dr. 
Downers Grove, IL 60515 
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SAS Institute Inc. 


Announces 





Lattice C Compilers for Your IBM Mainframe 


Two years ago... 

SAS Institute launched an effort to develop a 
subset of the SAS® Software System for the 
IBM Personal, Computer. After careful study, 
we agreed that C was the programming 
language of choice. And that the 

Lattice® C compiler offered the quality, 
speed, and efficiency we needed. 


One year ago... 

Development had progressed so well that we 
expanded our efforts to include the entire 
SAS System on a PC, written in C. And to 
insure that the language, syntax, and 
commands would be identical across all 
operating systems, we decided that all future 
versions of the SAS System —regardless of 
hardware—would be derived from the same 
source code written in C. That meant that 
we needed a C compiler for IBM 370 main- 
frames. And it had to be good, since all our 
software products would depend on it. 

So we approached Lattice, Inc. and asked 
if we could implement a version of the 
Lattice C compiler for IBM mainframes. 
With Lattice, Inc.’s agreement, development 
began and progressed rapidly. 


Today... 
Our efforts are complete—we have a first- 
rate IBM 370 C compiler. And we are 
pleased to offer this development tool to 
you. Now you can write in a single 
language that is source code compatible with 
your IBM mainframe and your IBM PC. We 
have faithfully implemented not only the 
language, but also the supporting library and 
environment. 

Features of the Lattice C compiler for 
the 370 include: 


@ Generation of reentrant object code. 
Reentrancy allows many users to share 
the same code. Reentrancy is not an 
easy feature to achieve on the 370, 
especially if you use non-constant 
external variables, but we did it. 

@ Optimization of the generated code. We 
know the 370 instruction set and the 
various 370 operating environments. We 
have over 100 staff years of assembler 
language systems experience on our 
development team. 

M@ Generated code executable in both 
24-bit and 31-bit addressing modes. You 
can run compiled programs above the 
16 megabyte line in MVS/XA. 

@ Generated code identical for OS and 
CMS operating systems. You can move 
modules between MVS and CMS 
without even recompiling. 

@ Complete libraries. We have 
implemented all the library routines 
described by Kernighan and Ritchie (the 
informal C standard), and all the library 


SAS is the registered trademark of SAS Institute Inc., Cary, NC, USA. Lattice is the reg 


routines supported by Lattice (except 
operating system dependent routines), 
plus extensions for dealing with 370 
operating environments directly. 
Especially significant is our 
byte-addressable Unix®-style I/O 
access method. 

@ Built-in functions. Many of the 
traditional string handling functions are 
available as built-in functions, generating 
in-line machine code rather than function 
calls. Your call to move a string can result 
in just one MVC instruction rather than a 
function call and a loop. 


In addition to mainframe software 
development, you can also use our new 
cross-compiler to develop PC software on 
your IBM mainframe. With our cross- 
compiler, you can compile Lattice C 
programs on your mainframe and generate 
object code ready to download to your PC. 

With the cross-compiler, we also offer 
PLINK86™ and PLIB86™ by Phoenix 
Software Associates Ltd. The Phoenix link- 
editor and library management facility can 
bind several compiled programs on the 
mainframe and download immediately 
executable modules to your PC. 


Tomorrow... 

We believe that the C language offers the 
SAS System the path to true portability and 
maintainability. And we believe that other 
companies will make similar strategic 
decisions about C. Already, C is taught in 
most college computer science curriculums, 
and is replacing older languages in many. 
And almost every computer introduced to 
the market now has a C compiler. 


i want to learn more about: 


(] the C compiler for MVS software developers 
(] the C compiler for CMS software developers 
L) the cross-compiler with PLINK86 and PLIB86 


today...so I’ll be ready for tomorrow. 


Please complete or attach your business card. 


Name 
Title 
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Telephone 


Mail to: SAS Institute Inc., Attn: CC, SAS Circle, Box 8000, Cary, NC, USA. 
27511-8000. Telephone (919) 467-8000, x 7000 














C, the language of 
choice... 


C supports structured programming with 
superior control features for conditionals, 
iteration, and case selection. C is good for 
data structures, with its elegant implemen- 
tation of structures and pointers. C is 
conducive to portable coding. It is simple 
to adjust for the size differences of data 
elements on different machines. 


Continuous support... 


At SAS Institute, we support all our 
products. You license them annually; we 
support them continuously. You get updates 
at no additional charge. We have a 
continuing commitment to make our 
compiler better and better. We have the 
ultimate incentive—all our software 
products depend on it. 


For more information... 
Complete and mail the coupon today. 
Because we've got the development tool for 
your tomorrow. 


® 
SAS Institute Inc. 
SAS Circle, Box 8000 
Cary, NC 27511-8000 
Telephone (919) 467-8000 x 7000 
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FORUM 


Sixth Generation 
Minds 


Our man from muppetland 


returns with an entourage 
including strange attractors 
and motorboats on mercu- 
ry pools.—ed. 

How might we simulate 
actual human cognition 
via new kinds_ of 
hardware? 

A clue comes from the 
work of Erich Goldmeier, 
whose essentially gestalt 
investigations in visual per- 
ception were a response to 
“the frustrating effort to 
teach pattern recognition” 
to computers. He found 
that the distinctions hu- 
mans make between fig- 
ure and ground, matter 
and form, norms and dis- 
tortion, etc., cannot be the 
result of examining the 
features of the figures or 
any formal aspects of the 
figures. Instead, Goldmeier 
believes, there are proto- 
typical or archetypal fig- 
ures existing somehow at 
the neurological level, 
such as “regions of reso- 
nance” in the brain. 

All this fits with Michael 
Doherty’s latest DDJ article 
citing the works of Rosch, 
Nelson, and _ Palermo, 
which suggests that con- 
cepts cannot be broken 
down into a list of features 
via reductionistic tech- 
niques and then recom- 
bined. In this view, objects 


by Richard Grigonis 





Richard Grigonis is em- 
ployed by Children’s Tele- 
vision Workshop. He is best 
known to DDJ readers for 
his articles on fifth and 
sixth generation computing 
and the Grigonis-Doherty 


debate’ these _ articles 
precipitated. 
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are categorized not by tab- 
ulating features but in 
terms of measured dis- 
tance from some mental 
ideal or type. Doherty also 
mentions the linguistic cu- 
riosities known as “‘squish- 
es.” The facts that the ger- 
und “‘his going’ can be 
used in the same positions 
as a normal noun phrase 
and that it can be placed 
along a continuum of 
‘“nouniness” implies that 
one can’t assign linguistic 
terms to discrete categories 
and state hard rules based 
on membership in the 
categories. 

But how does all this re- 
late to building a computer 
whose workings parallel 
those of the brain? 

Until recently, it was 
thought that the firings of 
neurons in the brain could 
be likened to the activity of 
flip-flops in a computer. 
Now it appears that large 
groups of neurons work in 
unison, interacting via 
complex electromagnetic 
fields—which could ex- 
plain the “regions of reso- 
nance’’required by Gold- 
meier’s view and also such 
phenomena as associative 
memory and the ability of 
the brain to recognize in- 
ternally complex stimuli 
(such as a friend’s face) al- 
most instantly. 

In one model, which is 
based on the work of such 
researchers as E. Roy 
Johns of the New York Uni- 
versity Medical Center and 
W. Ross Adey of the Loma 
Linda Veterans Adminis- 
tration Hospital, neurons 
behave as complex nonlin- 
ear oscillators. This places 
the problem of under- 
standing the collective be- 
havior of neurons in the 
realm of chaos theory, 
which describes mathe- 
matically systems that shift 
from periodic to nearly 


chaotic behavior—such as 
the way a stream of air be- 
comes turbulent near an 
airfoil—that are best de- 
scribed via the mathemati- 
cal entities known as 
“strange attractors. ” 

Unlike what happens in 
more tractable systems, 
when one changes input to 
a strange attractor slightly 
one ends up with a wildly 
different output. Erol Ba- 
sar of the University of 
Physiology in Lubeck, 
West Germany, plotted the 
amplitudes of two brain 
frequencies and found 
their relationship to be 
that of a strange attractor. 
Maybe free will is a 
strange attractor? 

In any case, building a 
“‘field-effect’’ computer 
based on nonlinear oscilla- 


tors ought to be a techno- - 


logical nightmare. Eric J. 
Lerner says that it could be 
done in one of four ways: 
(1) microwave circuits built 
from conventional compo- 
nents; (2) Josephson junc- 
tions, which are natural 
nonlinear oscillators in the 
microwave region; (3) us- 
ing .an optical processor, 
increasing the electromag- 
netic frequencies of indi- 
vidual transmitting units; 
(4) using some kind of mo- 
lecular processor such as 
those projected for future 
“biochips.” 

One could think up some 
additional, perhaps less 
plausible, versions of such 
a computer: a swimming 
pool filled with liquid mer- 
cury, the surface of which 
is disturbed by thousands 
of toy motorboats with 
broken propellers and 
faulty engines (the “non- 
linear accelerators’); or a 
soundproofed room filled 
with thousands of micro- 
computers fitted with 
speech recognition/pro- 
duction devices squawking 


at each other at various 
frequencies. 

But is it worthwhile? 

The successes of limited 
expert systems demon- 
strate special deficiencies 
in human cognition. As Do- 
herty wrote, “The strange 
fact about AI has always 
been that it’s easier to sim- 
ulate an expert than to sim- 
ulate the common sense of 
a five-year-old.” The tre- 
mendous contextual 
knowledge that children 
possess is wired into the 
brain along with the in- 
nate capacity to under- 
stand the grammars and 
semantics of natural lan- 
guage. These abilities have 
been genetically handed 
down to us by our ances- 
tors, useful evolutionary 
“inventions” by the ubiq- 
uitous DNA molecule to 
keep itself from extinction. 
Thus, the amount of learn- 
ing required in these cog- 
nitive areas is minimal, as 
they are processes ac- 
quired over time in a way 
that is ‘‘transparent to the 
user.”’ 

But we should not feel 
too complacent. The other 
side of the coin—learning 
new forms of knowledge 
and mastering them as an 
expert—is a domain easily 
dominated by computers. 
If you or I were to memo- 
rize a few hundred rules 
and apply them logically, 
we could get straight As on 
MIT calculus finals, but we 
are unlikely just now to 
run off to examine Slagle’s 
hundred rules. The future 
of the art and science of ex- 
pertise belongs to ma- 
chines, not to human 
beings. 
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~ SOME HISTORIC BREAKTHROUGHS 











DON’T TAKE AS MUCH EXPLAINING 
AS COMPUSERVE. 


But then, some historic break- 
throughs could only take you from 
the cave to the tar pits and back 
again. 

CompuServe, on the other hand, 
makes a considerably more civilized 
contribution to life. 

It turns the personal computer into 
something useful. 

CompuServe is an information ser- 
vice. Just subscribe, and 24 hours a day, 
7 days a week, a universe of information, 
entertainment and communications is 
at your service. 





can do with CompuServe: 


COMMUNICATE 
Easyplex™ Electronic Mail puts friends, 
relatives and business associates in con- 
stant, convenient touch. 
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CB Simulator lets thousands of enthusi- 


astic subscribers “chatter away” on 72 
different channels. 


Over 100 Forums welcome you to join 
their online “discussions.” They’re for 
everyone from computer owners and 
gourmet cooks to physicians and game 
players. 

Bulletin Boards let you “post” messages 
where thousands will see them. 


HAVE FUN 
Our full range of games includes “You 
Guessed It!,” the first online TV-style 
game show played for real prizes; Mega- 
Wars III, the ultimate in interactive 
excitement; board; parlor; sports and 
educational games. 


SHOP 
THE ELECTRONIC MALL™ gives you 
‘round the clock shopping for name 
brand goods and services at discount 
prices from nationally known stores and 
businesses. 
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SAVE ON TRIPS 


TWA Travelshopper™ lets you scan 
schedules and fares, find the best bar- 
gains and order tickets online. 


A to Z Travel/News Service provides 


latest travel news plus complete informa- 


tion on over 20,000 hotels worldwide. 


MAKE PHI BETA KAPPA 
Grolier’s Academic American 
Encyclopedia’s Electronic Edition 
is a complete, constantly updated 
general reference encyclopedia. 


The College Board, operated by the 
College Entrance Examination Board, 
helps you prepare for the SAT, choose 
a college and get financial aid. 


BE INFORMED 
The AP News Wire (covering all 50 
states and the nation), the Washington 
Post, USA TODAY Update and business 
and trade publications are constantly 
available. And our electronic clipping 
service lets us find, clip and file specific 
news for reading at your convenience. 


INVEST WISELY 


Comprehensive Investment Help 
includes complete statistics on over 
10,000 NYSE, AMEX and OTC securities. 
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Historic trading statistics on over 50,000 


stocks, bonds, funds, issues and options. 
Five years of daily commodity quotes. 
Standard & Poor's. Value Line. And over 
a dozen other investment tools. 

Site II provides demographic and sales 
potential information by state, county 
and zip code for the entire country. 


Although CompuServe makes the 
most of any computer, it’s a remarkable 
value. You get low start-up costs, low 
usage charges and local-phone-call 


access in most major metropolitan areas. 


EasyPlex and ELECTRONIC MALL are trademarks ot CompuServe, Incorporated. Travelshopper is a service mark of TWA. 


Gircle no. 237 on reader service card. 





Here’s how to use CompuServe. 

CompuServe is “menu-driven,” so 
beginners can simply read the lists of 
options on their screens and then type 
in their selections. 

Experts can just type in “GO” followed 
by the abbreviation for whatever topic 
they're after. 

In case of confusion, typing “H” for 
help brings immediate instructions. 

And you can ask general questions 
either online through our free Feedback 
service or by phoning our Customer 
Service Department. 
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How to subscribe. 

To access CompuServe, you'll need a 
CompuServe Subscription Kit; a com- 
puter, terminal or communicating word 
processor; a modem and in some cases, 
easy-to-use communications software. 


With your Subscription Kit, you'll 
receive a $25 usage credit, a complete 
hardcover Users Guide, your own 
exclusive user ID number and prelim- 
inary password, and a subscription to 
CompuServe’s monthly magazine, 
Online Today. 

Subscription Kits are available in 
computer stores, electronic equipment 
outlets, retail stores and catalogs. You 
can also subscribe with materials you'll 
find packed right in with many com- 
puters and modems sold today. 


Make a move of historic proportions. 
Subscribe to CompuServe today. 


To receive our free informative bro- 
chure or to order direct, call or write: 


CompuServe’ 


Information Services 
P.O. Box 20212, 5000 Arlington Centre Bivd. 
Columbus, OH 43220 


800-848-8199 


In Ohio, call 614-457-0802 
An H & R Block Company 
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DDJ Goes 
On Line 


On January 1, the Electron- 


ic Edition of Dr. Dobb’s 
Journal appeared on Com- 
puServe. Through the Elec- 
tronic Edition DDJ will of- 
fer the following: 


¢ We will make available in 
our data libraries most of 
the listings that appear in 
the articles and columns of 
Dr. Dobb’s Journal every 
month. The data libraries 
will also contain selections 
from some of our more 
popular back issues and oc- 
casionally articles and list- 
ings that have not ap- 
peared in the magazine. 

¢Some of our more signifi- 
cant programs will be 
available through Softex in 


the near future. Softex is 
CompuServe’s electronic 
software exchange, a 
menu-driven program that 
allows users to purchase 
and download software 
though the network. 

eWe will maintain a dis- 
play area where Compu- 
Serve users can read ab- 
stracts of the material in 
the current issue. The dis- 
play area will also contain 
general magazine informa- 
tion, such as our editorial 
calendar, writers’ guide- 
lines, and information for 
advertisers. 

¢We will compile lists of 
the commercial software 
development tools avail- 
able to microcomputer 
programmers. We will also 
compile selected bibliogra- 
phies and give capsule re- 


views of newly released 
books. 
¢ We will provide a messag- 
ing facility with columnists 
and other SIG members. 
¢We will stage regular on- 
line teleconferences with 
authors, columnists, and 
other distinguished guests. 
¢We will take subscrip- 
tions for Dr. Dobb’s Jour- 
nal, the magazine. We will 
also provide a way for 
readers to register circula- 
tion complaints. 
¢We will provide com- 
plete information about 
other DDJ publications, 
such as back issues, bound 
volumes, indexes, Dr. 
Dobb’s Books, and Dr. 
Dobb’s Software. We will 
also take orders for these 
items. 

Please watch this de- 
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byte on board (256K installed, 384K RA 


@ LAN:ZENET port 800K baud CSMA CD 


KAYPRO™ users ‘can share the advantage to 


LAT1, Just take off your main KAYPRO board and put 


LATI1-K into your cabinet. 


All advantage of LATI1 is yours now/ 


CP/M plus is a registered trademark of Digital Research Inc. 


Z80 is a registered trademark of Zilog Inc 


Turbo Dos is a registered trademark of Software |2000 Inc 
Mountain Side Computer and ZENET are trademark of Southern Pacific Limited 


Distributors 


England-Quanta systems 01-253-8423 

03-662020 
90-692-6297 
0812-71989 
Australia-LAMRON PTY. Ltd. 02-808-3666 


Denmark-Danbit 
Finland-BB, Soft 
India-Betamatix PVT Ltd. 
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density checking 


Full feat 


@ 780 4mhz 128K a f 


8 inch d/s densi 


Manufacturer and international distributor 


SOUTHERN PACIFIC LIMITED 

Sanwa Bldg., 2-16-20 Minamisaiwai, Nishi, Yokohama, JAPAN 220 
Phone: 045-314-9514 Telex: 3822320 SPACIF J 

Advanced single board computer technology company 


0: 80 X 24 high speed CRT controller 
‘OS: CP/M plus bank version included 
@ Size: 10 X 6 inch 4 layered 


partment for further an- 
nouncements about con- 
ference schedules or the 
availability of listings from 
back issues. Also, if you 
have a request for a listing 
from a back issue, drop us 
a note or just leave a mes- 
sage in the DDJ Electronic 
Edition on CompuServe. 

Some of these services 
may not yet be available. 
Most will be free, but some 
will involve a_ small 
charge. 

You access the DDJ Elec- 
tronic Edition by typing go 


DDJ at any CompuServe 


system prompt. We hope 
you will drop by and have 
a look. See you soon! 


DDJ 


rd port (32 characters FIFO) 


y 
@ OS.:: Turbo Dos, MP/M (multiuser) 


banked CP/M plus (single user) 
@ Size: 10 X 6 inch 4 layered 
@ Assembled and tested 


F BIOS source code available 
Completely faster-than other Z80SBC 


8088 expansion card for LAT? soon available 


printer port 
yopy disk drive 800K byt 


MSC-HCS 
Expansion card for ICO 
RAM disk (upto 2M byte) and. SCSI hard disk 
interface card for ICO with instailation program 

USA distributor 

SOUTHERN PACIFIC 

COMPUTER PRODCTS U.S.A., INC. 

21 Altarinda Rd. Orinda, CA 94563 

Phone: 415-253-1270 

Dealer and distributor inquiries welcome 


Circle no. 240 on reader service card. 
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@ DRI CP/M plus manual $50 

® New word word processor program for 
MSC-ICO ADD $50 

® Completely faster than other Z8OSBC 
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Why your next generation of 
products should use our 5th 
generation tools. 





Arity’s integrated tamily of programming tools allows you to combine software written in 
Arity/Prolog, the best of the fifth generation languages, with Arity SQL, the best of the 
fourth generation languages, and with conventional third generation languages such as 
C or assembly language to build your smarter application. 


You can use Arity/Prolog to build expert systems using the Aritv Expert Systems 
Development Package. Or to build natural language frontends. Or to build intelligent 
information management systems. Arity/Prolog lets you build advanced technology into 
your vertical applications package. 


And more... 


‘Thats not the whole story. Arity’s products are all designed to be fast, powerful, serious. 
Each of our products contains unexpected bonuses. Such as a one gigabyte virtual 
database integrated into Aritv/Prolog. ‘Vhe most powerful of its kind on a PC. 


Quality first. Then price. 


In order to be the best, we had to prove it to our customers. Our tradition of quality 
software design is reflected in every product we sell. Quality first. ‘Then price. And we 
always provide the best in customer support. 


Our products are not copy protected. We do not charge rovalties. We offer generous 
educational and quantity discounts. And we have a 30 day money back guarantee. 

‘Try us to know that we keep our promise on commitment to quality and reliability. ‘liy 
us by using our electronic bulletin board at 617-369-5622 or call us by telephone—vou 
can reach us at 617-371-2422. 


Or fill in this coupon. Whether you order today or not, let us send you full descriptions 
of our integrated family of Arity products. 
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COLUMNS 


A New Shell for MS DOS (continued) 


his month’s column continues 

with the MS DOS shell. Last 
month I described how to use the 
shell and printed Listing One, the 
shell itself. This month, because the 
various subroutines that make up the 
shell are commented well enough so 
that additional comments here are 
unnecessary, I'll discuss only the 
shell’s organization at a reasonably 
high level and those subroutines 
whose function is not immediately 
evident. Refer to the listings for more 
details. This month’s listings (Listings 
Two, Three, Four, and Five, pages 
66—74) are the history, shell vari- 
ables, alias support, and a couple mi- 
nor support routines. Next month I'll 
finish up the shell with another col- 
lection of miscellany. 

A bug was found in last month's 
listing after the issue went to press. 
As printed, the shell would try to ex- 
pand * or ? even if these characters 
were in a quoted string. To fix this 
problem, replace the subroutine 


has_wild( ) 


(line 348) with the code shown in Ta- 
ble 1, page 18. 

This morning I dumped all the var- 
ious shell listings out on my printer 
for the first time. I admit I’m sur- 
prised by the number of pages now 
piled on my desk (for all that, sh.exe 
is only 28,906 bytes compared with 
23,210 bytes for command.com). 
Anyway, for both my own sanity 
and to make everyone’s life a little 
easier, I've compiled a cross-refer- 
ence of all the shell-related subrou- 
tines (Table 2, page 18). The table 
shows the subroutine name, the list- 
ing number (and month of publica- 
tion), and the line number on which 


by Allen Holub 


the subroutine starts. Next month’s 
listings are included in the table as 
are subroutine-like macros. 
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Compiling the Shell 

The shell was compiled using the 
most recent version (3.0) of the Micro- 
soft C compiler. (I am not as im- 
pressed with the compiler as many 
other reviewers seem to be; there will 
be an extensive review of the compil- 
er in this column next month.) I’ve 
tried to restrict myself to those library 
subroutines that are readily portable 
to other compilers. Most of the sys- 
tem-level routines (chdir( ), getcwd( ), 
and so on) are simple BDOS calls any- 
way, so it shouldn’t be too hard to 
write them if you don’t have them al- 
ready. All the library routines used 
are listed in a block of externs on lines 
110—123 of Listing One. 

Three routines may cause trouble if 
you're not using the Microsoft com- 
piler. These are signal( ), which lets 
you handle a °C, and the environ- 
ment manipulation routines getenv( ) 
and putenv( ). If you need a signal( ), 
I'd suggest using Ray Duncan's 
break.asm (DDJ, September 1985, pp. 
119—121), which is functionally very 
similar to signal( ). (Break.asm sets a 
global flag rather than calling a sub- 
routine when °C is encountered.) 

Getenv(), used to examine an envi- 
ronment string, is relatively straight- 
forward to write. A pointer to the en- 
vironment string is part of a 
program’s PSP. [For more informa- 
tion about the PSP, see The Peter Nor- 
ton Programmer's Guide to the IBM PC 
(Microsoft Press, 1985) p. 260f.] In any 
event, Lattice, Microsoft, and Aztec 
all have a getenv( ) in their libraries. 
Unfortunately, of the three, only Mi- 
crosoft has a putenv( ), and adding an 
environment string is a harder prob- 





lem, mostly because a child process 
must inherit the shell’s environment. 
The various fork/spawn functions 
have to be rewritten to pass the new 
environment to the child. If anyone 
has done any of this, please send me 
your routines, and I'll print them. 
Lacking that, I'll try to write them 
myself within the next few months. 

The shell modifies only two envi- 
ronment strings. CMDLINE holds the 
full 2,048-byte command line, and 
SHLEV holds the current shell nesting 
level. If you can live without these, 
then you don’t need a putenv( ). An 
alternative approach is to use the In- 
tra-Application Communications 
Area supported by DOS. The ICA is a 
16-byte block at addresses 0000:4f0 to 
0000:4ff, reserved by DOS so that pro- 
grams can communicate with each 
other (that is, DOS promises not to 
trash it for you). The current shell 
level and a long pointer to the com- 
mand line buffer could be put into 
the ICA and then accessed by a child 
process instead of using environ- 
ment variables. You should probably 
put a checksum in the ICA as well, to 
make sure that another program 
hasn't modified it. 

I’ve used the void type in the shell 
so that a warning will be printed if 
you use the return value of a subrou- 
tine that doesn’t return a value, 
though I haven’t used any pointers to 
void. I'd suggest putting a 


typedef int void; 


into your stdio.h file rather than dis- 
pensing with the void declarations— 
your program will be more portable 
that way. Microsoft also supports 
strong type checking, so I’ve been us- 
ing it too. Strong type checking is 
turned on by including a type list as 
part of an extern statement. For 
example: 


extern int fopen( char *, char *); 


will do all the usual things, and a 
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1. PC magazine calls it: “A truly 
remarkable book...A treasure 
trove of useful programming infor- 
mation for the IBM PC.” $22.95 
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© CREST 
(Continued from page 16) 


warning will be printed if the return 
value from fopen isn’t put into an int. 
In addition, warnings will be printed 
if fopen is called with anything other 
than two, character-pointer argu- 
ments. A subroutine with a variable 
number of arguments can _ be 
declared: 


extern void printf( char *, ) 


Here, printf ) must have one charac- 
ter-pointer argument, but this one 
can be followed by zero or more ad- 
ditional arguments of indeterminate 
type. Printfl )s return value (which is 
garbage anyway) can’t be used for 
anything because of the void. If 
you re not using a compiler that sup- 


int has_wild( bp ) 
register char *bp; 


{ 


ir 


register int inquote = 0; 


forl : ‘bp. +7 0p) 


return 0; 


~~ Dp: 


else if( ISQUOTE(*bp) ) 


if(*bp == '\ \’ && *(bp+1)) 


inquote = inquote; 


return 1; 


else if( !inquote && (“bp = = 


Return true if the string has a* or ? init 
Does not recognize a * or ? in a quoted string. 


‘itp ==?) 











ports strong type checking, don't en- | Table 1 
ter the type list when you type in the 
code. All the extern statements are name listing # month module line number 
grouped near the top of every mod- typedef TOKEN listing 1 (jan) sh.c 193 
ule so that you can find them easily. typedef VAR listing 3 (feb) var.c 29 
Another potential portability prob- | | 4¢¢—entry listing 7 (mar) di. aar 
lem is the enumerated type (TOKEN) queries et ce ag ‘ oe 
used on lines 193— 208 of Listing One. mg oe { oe wie 1313 
You can replace the TOKEN declara- | | gap ae - (mar) ec 349 
tion with cmds listing 1 (jan) sh.c 1417 
cmp listing 7 (mar) dir.c 359 
typedef int TOKEN; command_inpu ... listing 1 (jan) sh.c 285 
copy—path listing 7 (mar) dir.c sel 
#define ALIAS 0 cptolower listing 2 (dec) cptolow.c 1 
#define CD (ALIAS +1) cpy listing 3 (dec) cpy.c 1 
#define CMD (cp +1) cursize listing 4 (dec) vidbios.c 49 
#define EXIT (CMD +1) dt es ie ae 
DIAG istin jan sh.c 
tcletne aque tee hogan digit isting (jan) sh.c 251 
dir listing 7 (mar) dir.c 431 
dirtoa listing 7 (mar) dir.c 200 
disk_present listing 1 (jan) sh.c 1266 
doargs listing 1 (jan) sh.c 1100 
One final portability issue: I’ve docmd listing 1 (jan) sh.c 883 
used both bit fields and explicit initia- doenv listing 1 (jan) sh.c 1359 
lizers all over the place. To my mind, | | efgets listing 5 (dec) efgets.c 393 
these are both part of the C language, | | ¢gethist listing 2 (feb) hist.c 169 
and I wouldn't consider dispensing ae Hered = dec} etgetse ass 
with them any more than I'd consid- waa Saas etng : yan) os 7 
; errmsgs listing 1 (jan) sh.c 1029 
er not using ++ or pointers. Just be- Se eunuke listing 1 (jan) che 631 
cause a few turkey compilers (such exp_dir listing 1 (jan) ahi 479 
as BDS) can't compile a program writ- exp_vars listing 1 (jan) sh.c 706 
ten in C, I’m not going to deliberately file_input listing 1 (jan) sh.c 305 
cripple my own programs by not us- find_first listing 7 (mar) dir.c 45 
ing perfectly legitimate constructs. find_next listing 7 (mar) dir.c 67 
This is an MS DOS shell anyway, and | | findvar listing 3 (feb) var.c 43 
most MS DOS compilers support bit fixup_name listing 7 (mar) dir.c 137 
fields and initializers (if yours (Continued on page 20) 


doesn’t, you should consider getting 
another compiler). Those that don’t | Table 2: Cross-reference for all shell-related subroutines and subroutine- 
support bit fields will just ignore the | like macros 
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- A SYNCH” with turbo ASYNCH, you can be i in constant : oe 
eo touch with the world without ever leaving 


the console. Rapid transit at its best. Turbo ASYNCH is o designed — 


x into your Turbo Pascal application programs, and it will drive any 
asynchronous device via the RS232 ports, like printers, plotters, — 


__ modems or even other computers. Turbo spel is fast, accurate te oe 


: and lives up to its specs. Features include. . 


| - : : ? Initialization of the COM ports allo wing you i set all se eo : 
<1 SOA options. @ Interrupt, processing. @ Data transfer between cir- ne 
cular queues and communications ports. @ Simultaneous buttered ed . 


__ input and output to both COM ports. @ Transmission speeds up 
to 9600 Baud. Input and —_ sais as iage as you wr 


The underlying functions é ‘tbo ASYNCH a are s caret pitied 


interrupt controller chips directly. These functions, installed as a 
__. runtime resident system, require just 3.2K bytes. The interface < 


ne assembler routines Is written in Turbo ees 





The Turbo Pascal PERFORMANCE PACKAGE" ™ jg for the serious. a 


ascal program! ers. 





ihebo POWER TOOLS | isa- 
sleek new series of procedures — : mm .. 
: _ designed specifically to complement Turbo Pascal on IBM aad com- ee 
2 ___ patible computers. Every component in Turbo POWER TOOLS is 
precision engineered to give you fluid and responsive handling, With 
_ all the options you need packed into its clean. lines. as Reo oe 





oat 


ance and full instrumentation, including... 


7 Extensive string handling to complement the Sona Turbo ee 
. Pascal functions. Screen support and window management, giv- 
__ Ing you fast direct access to the screen without using BIOS calls. 
oF _ @ Access to BIOS and DOS services, including DOS 3.0 and Hig 
IBM AT. @ Full program control by allowing you to execute any — 
a other program from within your Turbo Pascal application. e Inter | 
- _ = rupt service routines written entirely in Turbo Pascal. Assembly — 
“4. ¢odess not required | even to service e hardware es like the 
keyboard or clock. 
in in assembler for efficiency, and drive the UART and programmable oo 
or even DOS, and create your own 
. “sidekickable” menos, a 





Using Turbo POWER TOOLS, you can now “titer” ihe keyboard _ 


7 o Turbo Pascal programmer who wants quality tools to develop appli: : = . \ J Turbo AS 
~ cations. E very system comes with a comprehensive User Reference | 


_ Manual, all source code and useful sample programs. They require oe | 


, _ an IBM PC or compatible, utilizing MS-DOS version 2.0 or later. 


There are no royalties for incorporating PERFORMANCE PACKAGE a a 
ae functions into your applications. - oe 


- Turbo POWER TOOLS and Turbo ASYNCH sell for ~~ 95 each, 





Computing Inc. To. order, Cale 
(415) 540-5441, | 
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@ CREST 
(Continued from page 18) 


Be Ba Bes ee ah gs oe gcur listing 4 (dec) vidbios.c 82 
: <num> part of the declarations, so | | get_hist listing 2 (feb) hist.c 97 
your structures will be a little larger, | | get-hnum listing 2 (feb) hist.c 188 
but the program will still compile getcur listing 4 (dec) vidbios.c 105 
without modification. sone eae : ts ee ms 

The subroutines are organized ge tele, 2 eee 
functionally rather than alphabeti- ae ce 2 oo a 
cally. You can use the cross-refer- | | has_only ‘listing 7 (mar) dir.c 113 
ence if you need to find something. has_wild listing 1 (jan) sh.c 348 
The biggest potential organizational haswild listing 7 (mar) dir.c 84 
problem is sh.c (Listing One), which hist_name listing 2 (feb) hist.c 214 
is too big for me to be totally comfort- history listing 2 (feb) hist.c 269 
able with it. Break it up if you need interactive_... listing 1 (jan) sh.c 269 
to. The routines on lines 1137—1379 | | 'Salias listing 3 (feb) ae 25 
(the various system-level command eee ee? i) — - 
support routines: setenv, set, and so ee si ohalt a ae peel 
on) could be made into another inde- | | jowhite ies { ee oes 5 
pendent module without too much ISWHITE listing 1 (jan) sh.c 177 
trouble, but that only gets rid of a main listing 1 (jan) sh.c 1489 
few hundred lines. mk_dir listing 7 (mar) dir.c 385 
next listing 1 (dec) next.c 8 
Shell Organization next_cmd listing 1 (jan) sh.c 965 
The shell itself (Listing One) is orga- | | "extarg listing 1 (jan) sh.c 441 
nized functionally into several parts: | | "@xt@"g listing 8 (mar) aS 12 
PMODE listing 1 (jan) sh.c 186 
rint_hist listing 2 feb hist.c 195 
Ty pedes, efines; ann 90 on Vis ile isting 3 = var.c 173 
dag e206) printvars listing 3 (feb) var.c 183 
Input routines (lines 227 — 346) prompt listing 1 (jan) sh.c 858 
Command processing (lines | | pstrR listing 1 (jan) sh.c 160 
347 — 1026) ptail listing 5 (dec) efgets.c 112 
Start-up routines (lines 1029— 1136) pwd listing 1 (jan) sh.c 1251 
Internally implemented com- | | rcopy listing 1 (jan) sh.c 915 
mands (lines 1138 — 1378) reargv listing 8 (mar) reargv.c 46 
The command processor itself (in- se T PEE ia nad oe we 

ey es restore_his isting e ist.c 

clase ey eee save_hist listing 2 (feb) hist.c 231 
Of these, the organization of the input ae es : pt — e 
routines needs some comment. I set listing 1 (jan) sh.c 1172 
eventually intend to augment Sh with setargs listing 1 (jan) sh.c 1063 
several of the loop control functions setcur listing 4 (dec) vidbios.c 100 
supported in the Unix C shell. The setenv listing 1 (jan) sh.c 1138 
easiest way to do this is to treat the | | Setvar listing 3 (feb) var.c 137 
shell as a small compiler (or interpret- | | Shift listing 1 (jan) sh.c 1344 
er). That is, it’s nice to have a token | | Skipto listing 6 (mar) skipto.c | 
recognizer parse keywords from the oh abe Se (an) ae a 
input and then tell the command in- oe ee { an ea * 363 
terpreter what to do rather than have strsave listing 5 (feb) strsave.c 6 
the command interpreter itself figur- | | tokenize listing 1 (jan) sh.c 1393 
ing out what’s on the input line. So, TRACE listing 1 (jan) sh.c 150 
the command interpreter (cmds(_ ) on unalias listing 1 (jan) sh.c 1227 
line 1417) calls next_cmd( ) to get a unargv listing 4 (feb) unargv.c Zz 
command from input. Cmds( ) then | | unsetvar listing 3 (feb) var.c 62 
strips the first word from the input .| | ¥S89® listing 1 (jan) sh.c 1047 
line and calls tokenize( ) to analyze | | USe—extt listing 1 (jan) sh.c 1382 
this word. Tokenize( ) returns a vane ee . = sone saa 
unique integral value that can be used styl ee ; ee meas pe 


to vector into a switch. 
Input can come from one of three 


places, depending on the command | Table 2 (cont.): Cross-reference for all shell-related subroutines and sub- 
line with which the shell was in- | routine-like macros 
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Turbo, who? 


Do you have to give up power and advanced potential 
to get ease of use and affordability? Not anymore. 
Because now, you can have UCSD Pascal for only $79.95! 













If you're making your move into 
programming, there’s no better way 
to go than Pascal. And starting now, 
you don't have to settle for 
a stripped-down 
version of Pascal 
in order to get a price 
that’s right. Instead, 
you can choose UCSD Pascal-—the 
recognized Pascal programming 
standard in colleges and uni- 
versities throughout the 
country — at the incredibly 
low introductory price 
of $79.95 for your 
PC-DOS, MS-DOS, or 
other popular computer. 


Start with the standard 
With an entry-level system, 

you spend a lot of valuable 

time learning a non- standard 

form of Pascal. And you 

don't get all the capabilities a true 

Pascal system is supposed to 

deliver—unless you buy a lot of 

add-on utilities—which can send 

the cost of your system sky-high! 


Programming that’s easy 
...and fun! 
At Pecan Software Systems, we 
© strongly believe programming 
~ Should be as easy as possible. 
4. UCSD Pascal was originally designed 
Ps for teaching programming 
Skills, so its extremely 
easy to learn and to use. 
With UCSD Pascal, you'll 
" be developing programs right 
from the start that are 
 @asy to write, easy to 
understand, and easy to 
maintain. We also believe 
~~ that programming should 
be fun. So we've made UCSD Pascal 
as enjoyable to use as it is powerful. 


The right tool at the 
right price 

When the fun gets serious, you'll 
have a comprehensive programming 
system right at your fingertips with 
UCSD Pascal—a system that will 
help you develop those big-league 
programs you may eventually want 






Worst of all, when you're ready full-featured, : sophisticated programs. hi a a vee veh) call realy 
to tackle anything more than short. professional programming tool that’s UCSD Pascal is available for : 6s once 
simple programs—you have no being used right now in the MS-DOS, PC-DOS, UNIX, VMS, ° goed’ programming 
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UCSD Pascal BCD (decimal arithmetic) included in | speed is what you're after, the latest | 'eader in Pascal price/ 
has everything you need the package at no extra cost. In fact, | native code version of UCSD Pascal | Performance. ca! 
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Work Smart 

with These Powerful 
C Utilities 

Get more value from your C system. 


Boost program quality and slash de- 
velopment time with these professional 


utilities for leading C-compiler systems. 


syaS $155 


C Utility Library 
Over 300 C subroutines 
C and assembler source code and 


demonstration programs for screen han- 


dling, color printing, graphics, DOS 
disk and file functions, memory manage- 
ment and peripherals control. 


C-tree 

B-Tree database system 
Store, update and retrieve records 
easily. High-level multi-key ISAM 
routines and low-level B-Tree 
functions. Available for MS-DOS, CP/ 
M-86, and CP/M-80. Easily transpor- 
ted. Adaptable for network and 
multiuser. Includes source. 


PHACT 
Data Base Record Manager 
Includes high-level features 

found in larger database systems. 
Available for MS-DOS, CP/M-86 
and CP/M-80. 


Pre-C 
LINT-like source code analyzer 
Locates structural and usage errors. 
Cross-checks multiple files for bad 
parameter declarations and other inter- 
face errors. 


Windows for C 
Versatile window utility 
Supports IBM PC compatible and some 
non-compatible environments. 


PANEL 
Screen generating utility 

Create custom screens via simple, 
powerful editing commands. Select 
colors, sizes and types, edit fields. 
Includes direct input utility. 


HALO 

Ultimate C graphics 
A comprehensive package of graphics 
subroutines for C. Supports multiple 


graphics cards. 
$395 $315 


PLINK-86 
Overlay linker 

Includes linkage editor, overlay manage- 
ment, a library manager and memory 
mapping. Works with Microsoft and 
Intel object format. 


1 800-TEC- WARE 


(In NJ call 201-530-6307) 
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voked: the command line itself, a file, 
or interactively from standard input. 
All three of these sources have their 
own problems, and I didn’t want 
next_cmd( ) to have to worry about 
these problems. Thus, the shell uses 
multiple input routines. 

When argv is parsed (by doargs( ), 
line 1100), a global pointer to a sub- 
routine ([funct, line 234) is initialized 
to point at an appropriate input rou- 
tine. Text is then input indirectly 
through this pointer. [funct will 
point at one of the routines interacti- 
ve_input( ), command_input( ), or fi- 
le_input( ). All three routines act in 
the same way—they get a line of in- 
put from somewhere and put that 
line into the global array Ibuf (de- 
clared on line 216). A pointer to [buf is 
returned on success, and 0 is re- 
turned on EOF. The string input rou- 
tine command_input( ), returns EOF 
when it reaches the end of a string to 
maintain compatibility with the 
other routines. 

Of the three input routines, the 
weirdest is file_input( ) (used to pro- 
cess batch files). The problem here is 
caused by collusion between MS DOS 
and the compiler’s I/O library. When 
a program spawns a child process, 

the child inherits the parent's file de- 
scriptors. This is documented in sev- 
eral places, both in the MS DOS and 
the Microsoft C Compiler documen- 
tation. None of these sources, howev- 
er, deign to mention that when the 
child process terminates, exit( ) will 
close all open files, including those 
files that belong to the parent pro- 
cess. In other words, spawning a 
child process under MS DOS closes all 
open files in the parent process as an 
undesirable side effect. This problem 
is circumvented in file—input( ), 
which reads a line from a file, re- 
members the current position in the 
file with an fseek( ) call, and then 
closes the file. The next time file_in- 
put( ) is called, it reopens the file, 
seeks to the previous position in the 
file, and then reads another line. I 
know this is a kludge, but I couldn't 
think of any easy way around the 


problem short of reading the entire | 
batch file into a local buffer and then | 
processing that buffer. The repeated | 


seeks seemed a better solution, but 








it’s not a good one. 

Another somewhat convoluted 
piece of code is the routine that does 
alias expansion. The expansion of a 
single alias is straightforward. The 
same routines (and tables) are used to 
hold and expand both aliases and 
shell variables. An alias has the high 
bit of the first character of the name 
set when it is stored and a shell vari- 
able does not so that the alias expan- 
sion routines can differentiate be- 
tween them. That is, aliases and shell 
variables do not share the same 
name pool, even though they're 
stored in the same table. All the sim- 
ple alias maintenance routines are in 
Listing Three. 

The shell, on the other hand, uses 
the simple alias expansion routines 
in complex ways. The problem here 
is compound commands—single 
aliases consisting of several, semico- 
lon-delimited commands concatenat- 
ed together. These additional com- 
mands could also be aliases. 

The initial command is read in by 
next_cmd( ) on line 991. Blank lines 
and comment lines (those with a 7 in 
the far left column) are skipped at 
this level. Then history is applied. 
(Note that applying history here 
means that the ! that signifies a his- 
tory expansion has to be the charac- 
ter at the left end of the line not the 
first character of the command, 
which could be anywhere on the 
line following a semicolon.) Now 
aliases are expanded by calling the 
recursive routine rcopy( ) (on line 
915). Each recursive iteration ex- 
pands one alias. Looking at the code 
as I write this, the method used 
seems needlessly convoluted. On the 
other hand, it works—‘‘If it ain't 
broke, don’t fix it.” 


Availability 

This column is part of a four-part se- 
ries describing the entire shell. A re- 
print of all four parts along with a 
disk containing the listings and an ex- 
ecutable version of the shell is avail- 
able for $29.95 from Dr. Dobb’s Jour- 
nal, 2464 Embarcadero Way, Palo 
Alto, CA 94303. Please direct inquiries 
to the The Shell. Prepayment is 
required. DDI 
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NEW RELEASE 


Ecosoit’s Eco-C88 Rel. 3.0 C Compiler 


Release 3.0 has new features at an unbelievably low price. ECO-C88 now has: 

@ Prototyping (the new type-checking enhancement) 

@ enum and void data types 

@ structure passing and assignment 

@ All operators and data types (except bit fields) 

@ A standard library with more than 200 functions (many of which are System V 
compatible for greater code portability) 

@ cc and mini-make that all but automates the compile process 

@ 8087 support (we sense the 8087 at runtime — no dual libraries) 

m@ ASM or OBJ output for use with MSDOS linker 

@ Tiered error messages — enable-disable lint-like error checking 

m@ Fast compiles and executing code 

@ Expanded user’s manual 

@ Enhanced CED program editor (limited time offer) 













We also offer the following support products for Eco-C88. 


CED Program Editor $ 2 O95 


CED now supports on-line function help. 

If you've forgotten how to use a standard library function, just type 
in the name of the function and CED gives you a brief summary, 
including function arguments. CED is a full screen editor with 
auto-flagging of source code errors, multiple windows, macros, and 
is fully configurable to suit your needs. You can edit, compile, link, 
and execute DOS commands from within the editor. Perfect for use 
with Eco-C88. For IBM PC, AT and look alikes. 


C Source for Standard Library $ 1 () 


Contains all of the source code for the library 


functions that are distributed with Eco-C88, ex- ($20 if not 
cluding the transcendentals and functions written with order) 
in assembler. 


Developer’s Library ) $ 2 5 


Contains the source code for all library functions, 

including the transcendentals and those written in ($50 if not 
assembler. Perfect for the developer that wish to with order) 
write their own custom functions or learn how 

we implemented the Eco-C88 library. 


ISAM Library $ 15 


Contains the code from the C Programmer’s 
Library in relocatable format (i.e., .OBJ) includ- ($30 if not 
ing the delete code for the ISAM file handler. with order) 


Eco-C88 C compiler requires an IBM PC, XT, or 
AT (or compatible) with 256K of memory, 2 
disk drives and MSDOS 2.1 or later. Call today: 














1-800-952-0472... 
1-317-255-6476 vos 


C Programming Guide $ IO 


After reading the Ist edition, 

Jerry Pournelle (BYTE Magazine) said: “I recom- 
mend this book... Read it before trying to tackle 
Kernighan and Ritchie.” The second editon ex- 


‘| pands this best seller and walks you through the C 
g language in an easy-to-understand manner. Many 


of the error messages include references to this 
book making it a perfect companion to Eco-C88 
for those just starting out with C. 


C Self-Study Guide §¢ 17 


(Purdum, Que Corp.). Designed 

for those learning C on their own. The book is filled 
with questions-answers designed to illustrate many 
of the tips, traps, and techniques of the C language. 
Although written to complement the Guide, it may 
be used with any introductory text on C. 


C Programmer’s $ 20 


Library 

(Purdum, Leslie, Stegemoller, Que Corp.). This 
best seller is an intermediate text designed to teach 
you how to write library functions in a generalized 
fashion. The book covers many advanced C topics 
and contains many useful additions to your library 
including a complete ISAM file handler. 
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helps save time, money and cut frustrations. Compare, evaluate, and find products. 





* Programmer’s Referral List 
* Compare Products * Newsletter 

* Help find a Publisher * Rush Order 

¢ Evaluation Literature FREE * Over 700 products 
¢ BULLETIN BOARD - 7PM to 7AM 617-826-4086 


* Dealer’s Inquire 


Free Literature - Compare Products 
Evaluate products. Compare competitors. Learn about new alterna- 


tives. One free call brings information on just about any programming 
need. Ask for any “Packet” or Addon Packet (_] AIL] ADA. Modula 
LIBASIC LHC” LICOBOL LJEditors LJFORTH [JFORTRAN 


LIPASCAL [JUNIX/PC or |_Debuggers, Linkers 


Al - Expert System Dev't 





ExpertEASE - Develop by describing 
examples of how you decide. Call 
EXSYS - All RAM, Probability. Why. 
Trees, Solid, files, popular PCDOS $359 
lst Class - by example, interfaces $250 
INSIGHT | - Probabilities, required 
thresholds, menus, fast .PCDOS $ 79 
INSIGHT 2 - adds backward, forward, par- 
titions, dB2, lang. access. PCDOS $399 
Others: APES ($359), Advisor ($949), 
ES Construction ($100), ESP ($845), 
Experteach $399. Expert Choice ($449), 
more. 


GC LISP - ‘Common’, rich. 
Interpreter - Interactive Tutorial $495 Call 
LARGE Model -2to 15 meg. $695 $649 
Compiler and LM. Interp. $1190 1045 
ExperLisp - Interpreter: Common 
LISP syntax, lexical scoping, 
toolbox, graphics. Native Code 
COMPILER.512K MAC $465 
TLC LISP - “LISP-Machine’” - like, all 
RAM, classes, turtle graphics, 8087, 
compiler. CPM-86, MSDOS $225 
TransLISP - formerly LISP-86 S75 
WALTZ LISP - “FRANZ LISP” - like, big 
nums, debug, CPM-80 MSDOS $149 
Others: IQ LISP ($155), BYSO ($125), 
MuLISP-86 ($199) 


Al- PROLOG 


ARITY PROLOG - full, debug, ASM, C, 
virtual. Compiler $795 MSDOS $350 
MicroProlog - enhanced $229 
MPROLOG - Rich syntax, editor, segment 
work space, portable. PCDOS $725 
Professional MicroProlog MSDOS $359 
TransPROLOG - Learn Fast. Standard, 
tutorials, samples MSDOS Call 
Others: Prolog-1 ($359), Prolog-2 ($1895), 


METHODS - SMALLTALK 

has objects, windows, 

browser, inspector. PCDOS $239 
QNIAL - Combines APL with LISP 

Library of sample programs included. 

Source or binary. PCDOS $375 
SNOBOL4 + -great for strings, 

patterns: MSDOS $ 85 


TransLisp - “Common subset, tutorial, 
editor, PP, trace. Best to learn. 


AllMSDOS Only $ 75 


List Our 





ACTIVE TRACE, DEBUGGER - 
BASICA, MBASIC, interactive, 
well liked MSDOS $ 79 
BASCOM-86 - Microsoft 80/86 $279 
BASIC DEVELOPMENT SYSTEM - 
(BDS) for BASICA; Adds Renum. 
crossref, compress. PCDOS $115 
BetterBASIC all RAM, modules. 
structure. BASICA - like PCDOS $169 
8087 Math Support $ 89 
Run-time module $459 
CADSAM FILE SYSTEM - full ISAM 
in MBASIC source. MSDOS $ 75 
CB-86 - DRI CPM86, MSDOS $419 
Data Manager - fullsource MSDOS $325 
InfoREPORTER - multiple PCDOS $115 
Prof. Basic - Interactive, debug 
PCDOS $ 89 
8087 Math Support $ 47 
QuickBASIC by Microsoft - Compiles 
full syntax of IBM BASICA, 640K, 


PCDOS $ 85 
TRUE Basic - ANSI PCDOS $109 
Run-time Module $459 


Ask about ISAM, other addons for BASIC 


Macintosh COBOL - Full MAC $459 
MBP - Lev II, native MSDOS $885 
MicroFocus Prof. - full PCDOS Call 


Microsoft Version II - upgraded. Full 

Lev. II, native, screens. MSDOS $500 
Realia - very fast MSDOS Call 
Ryan McFarland - portable MSDOS $695 


Editors for Programming 


BRIEF Programmer’s Editor - undo, 
windows, reconfigure PCDOS Call 
C Screen with source 80/86 $ 75 
EMACS by UniPress - powerful, 
multifile, windows, DOS, MLISP, 
programming. Source: $949 $299 


Entry Systems for C PCDOS $325 
Epsilon - like EMACS, PCDOS $169 
Kedit - like XEDIT PCDOS $115 


FirsTime by Spruce - Improve 

productivity. Syntax directed for 

Turbo ($69), Pascal ($229), or C ($239) 
PMATE - power, multitask 80/86 $159 
VEDIT - well liked, macros, buffers, 

CPM-80-86. MSDOS PCDOS $119 
XTC - multitasking PCDOS $ 95 


Ask about Atari ST, Amiga 





RECENT DISCOVERY 
Visual Computer: 8088 - Simulates 
demos or any .exe, Com. Debugger. 
350 pg. tutorial $ 59 
C Language - Compilers 
BDS C - solid value, fast CPM80 $125 


C86 by CI - 8087, reliable MSDOS Call 


Consulair Mac C w/toolkit MAC $299 
ECO C/88 MSDOS $ 59 
Lattice C - from Lifeboat MSDOS $289 
Lattice C - from Lattice MSDOS $339 
Mark Williams - debugger MSDOS $379 
Megamax - tight, full MAC $239 
Microsoft C 3.0 - new, MSDOS $259 


Q/C 88 by Code Works - Compiler source, 
decent code, cross/native MSDOS $295 
Wizard C - Lattice C compatible, 
full sys. III, lint, fast. MSDOS $379 


C Language - Interpreters 


C-terp by Gimpel - full K & R,. OBJ 
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by Terry Ritter 


he Cyclic Re- 
| dundancy 
Check (or CRC) 


is a way to detect er- 
rors in data storage or 
transmission. With 
more and more data 
being transmitted over 
phone lines, the need 
for protocols that pro- 
tect data from damage 
in transit has in- 
creased, but the the- 
ory behind CRC gener- 
ation is not well known. 


What Is a CRC? 

The Cyclic Redundancy Checs a way to detect small 
changes in blocks of data. Error detection is especially 
important when computer programs are transmitted or 
stored because an error of even one bit (perhaps out of 
hundreds of thousands) is often sufficient to make a pro- 
gram faulty. Although a few errors in a text file might be 
acceptable (because the text can be reedited when re- 
ceived or recovered), an error-free file is preferable. An 
error-correcting protocol triggered by CRC error detec- 
tion can provide this accuracy at low cost. 

The CRC algorithm operates on a block of data as a 
unit.1 We can understand the CRC better if we see this 
block of data as a single (large) numerical value. The CRC 
algorithm divides this large value by a magic number (the 
CRC polynomial or generator polynomial), leaving the re- 
mainder, which is our CRC result. 
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Some implementations of XMO- 
DEM use a CRC algorithm that 
introduces unnecessary delay in 
data transmission. CRCs can be 


used in communications, startup 
verification of ROM code, and 
program and data correctness 
validation. 








The CRC result can 
be sent or stored along 
with the original data. 
When the data is re- 
ceived (or recovered 
from storage), the CRC 
algorithm can be reap- 
plied and the latest re- 
sult compared to the 
original result. If an er- 
ror has occurred, we 
will probably get a dif- 
ferent CRC result. Most 
uses of the CRC do not 
attempt to classify or locate the error (or errors) but sim- 
ply arrange to repeat the data operation until no errors 
are detected. 


Using the CRC 

The IBM 8-inch floppy disk specification used the CRC- 
CCITT polynomial for error detection, and this CRC is now 
used in almost all floppy disk controller devices. A disk 
controller computes a CRC as it writes a disk sector, and 
then it appends that CRC to the data. When the data is 
read back, a new CRC is. computed from the recovered 
data and compared to the original CRC{M If the CRC values 
differ, an error has occurred and the operation is repeat- 
ed. The standard disk CRC (CRC-CCITT) is hidden in the 
controller and nowadays receives little comment. 

One version of the XMODEM (or Christensen) file trans- 
mission protocol also uses the CRC-CCITT polynomial to 
detect data transmission errors typically caused by line 
noise. When the receiving end detects a data error, it 
sends a NAK (Negative Acknowledge) character to the 
sender, which requests that the defective data block be 
retransmitted. The receiving end repeats this process un- 
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til the CRC from the transmitting end matches the local 
result or until one or both ends give up. When the result 
does match, the receiving end sends an ACK (acknowl- 
edge) character, and the transmitting end then sends the 
next block. 


Error Control and Efficiency 

Many different CRC polynomials are possible; these gen- 
erator polynomials are designed and constructed to have 
desirable error-detection properties. If the CRC polynomi- 
als are well constructed, the major difference between 
them is in their length. Longer polynomials provide 
more assurance of data accuracy and are fully usable 
over larger amounts of data; however, longer polynomi- 
als produce longer remainder values, adding error- 
checking overhead to the data. | 

A “16-bit’’ polynomial has a 16-bit remainder. There 
are two well-known 16-bit polynomials: CRC-16 (used in 
early BISYNC protocols) and CRC-CCITT (used in disk stor- 
age, SDLC, and XMODEM CRC). Of the two, CRC-CCITT may 
be a little stronger and by convention is often used in 
ways that strengthen its error-detection capabilities. This 
article illustrates CRC-CCITT, which is the pnomial x16 + 
Re Ser, 

Polynomials are classified by their highest nonzero dig- 
it (or place), which is termed the degree of the polynomi- 
al. Both CRC-16 and CRC-CCITT are of degree 16, which 
means that bits 16 through 0 are significant in their de- 
scription; a degree-16 polynomial thus has 17 bits. Nor- 
mally we are most concerned with the remainder of the 
CRC operation, which has one bit less than the polynomi- 
al. Thus, we may think of 16-bit CRCs, even though their 
generator polynomials actually contain 17 bits (bits 16 
through 0). 

In a proper CRC polynomial, both the most significant 
bit (MSb) and least significant bit (LSb) are always a 1. Be- 
cause the highest bit of the polynomial is always a 1, we 
are able to treat this bit differently from the other bits of 
the polynomial. Because the remainder from a sixteenth- 
degree polynomial has only 16 bits, a 16-bit register is 
sufficient for CRC operations on a 16-bit polynomial, even 
though the polynomial itself actually has 17 bits. 

A well-constructed CRC polynomial over limited-size 
data blocks will detect any contiguous burst of errors 
shorter than the polynomial, any odd number of errors 
throughout the block, any 2 bit errors anywhere in the 
block, and most other cases of any number of errors any- 
where in the data.” So every possible arrangement of 1, 2, 
or 3 bit errors will be detected. Nevertheless, there re- 
mains a small possibility that some errors will not be de- 
tected. This happens when the pattern of the errors re- 
sults in a new value that, when divided, produces exactly 
the same remainder as the correct block. With a properly 
constructed 16-bit CRC, an average of one error pattern 
will not be detected for every 65,535 that would be de- 
tected. That is, with CRC-CCITT, we can detect 99.998 per- 
cent of all possible errors.3 

There is no technique we can use to absolutely guaran- 
tee detection of any error, but we can minimize unde- 
tected errors at reasonable cost. Other error-detection 
techniques are available, such as checksum or voting, but 
these have poorer error-detection capabilities. For exam- 
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ple, the single-byte checksum (used in the original ver- 
sion of XMODEM) appears to be about 99.29 percent accu- 
rate,4 which seems pretty good. But for a single 
additional byte, the CRC technique is about 460 times less 
likely to let an error pass undetected. In practice, the dif- 
ference is much greater because the CRC will detect all 
cases of the most common errors at the cost of a 2-byte 
CRC value in every block. For example, the XMODEM pro- 
tocol sends data in 128-byte blocks; these blocks can be 
CRC error-checked with an additional 2 bytes—an error- 
check overhead of about 1.5 percent.5 


Polynomial Arithmetic 
The CRC performs its magic using polynomial modulo 
two arithmetic. Polynomial arithmetic mod 2 allows an 
efficient implementation of a form of division that is fast, 
easy to implement, and sufficient for the purposes of er- 
ror detection. (This scheme is not particularly useful for 
the division of common numbers.) Polynomial arithmetic 
mod 2 differs slightly from normal computer arithmetic, 
and it is generally the most confusing part of the CRC. 

A polynomial is a value expressed in a particular alge- 
braic form, that of 


wk, *xn + Ap4 *xn1 Sy ae oe A, *X + Ao 


Our common number system is an implied polynomial 
of base 10: Each digit means the value of that digit is mul- 
tiplied by the associated power of 10. The base 2 or bina- 
ry system of numeration is another form of the general 
polynomial concept. When we see a number, we think of 
it as a single value; we mentally perform the polynomial 
evaluation in the assumed base to get a single result. On 
the other hand, formal polynomials are considered to be 
a list of multiple separate units, and the existence or eval- 
uation of an ultimate single value for the polynomial 
may not be important. 

Because decimal arithmetic uses constant-base polyno- 
mials, all of us already know how to do polynomial arith- 
metic in a constant base (10); however, the polynomials 
used in CRC calculations are polynomials modulo two. By 
modulo two we mean that a digit can have only values 0 
and 1. Of course, this is always the case with binary values, 
so you might well wonder what all the mumbo jumbo is 
about. The difference is this: A modulo polynomial has no 
carry operation between places;® each place is computed 
separately. We perform mod 2 operations logically, bit by 
bit; in mod 2, the addition operation is a logical exclusive- 
OR of the values, and mod 2 subtraction is exactly the 
same (exclusive-OR) operation. 

Modulo arithmetic is used for CRCs because of its sim- 
plicity: Modulo arithmetic does not require carry or bor- 
row operations. In computing hardware, the carry cir- 
cuitry is a major part of arithmetic computation and is a 
major contributor to speed limitations. Of course, be- 
cause we have both subtraction and exclusive-OR ir} 
structions available in most computer instruction sets, 
this advantage is less important for software implemen- 
tations of CRC. Nevertheless, the simplicity of modulo 
arithmetic allows several different software approaches 
not available in conventional arithmetic. Note that the 
modulo-type operations available in programming lan- 
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Figure 2: CRC Hardware 


CRC 
(Continued from page 27) 


guages (e.g., the Pascal MOD operator) operate on entire 
numbers rather than individual bits or places. 

A polynomial division mod 2 is very similar to common 
binary division, except that we perform a logical exclu- 
sive-OR operation instead of an arithmetic subtraction. 
Similarly, because “greater than” and “less than” are 
meaningless in modulo arithmetic, we can replace these 
operators by performing the exclusive-OR operation if 
the high bit is set or 1, driving the high part of the divi- 
dend to zeros. 

We can implement a polynomial division as follows: A 
polynomial division register of a length corresponding to 
the remainder produced by the polynomial to be used is 
set up (see Figure 1, below).? Each element of the register 
should be able to hold the maximum modulo value; in 
mod 2, a single bit suffices. (Note that the hardware dia- 
grams are intended only as examples. Very short CRCs 
are of limited practical use, and there are better ways to 
do the job.) 

The register is cleared, then the data is shifted into the 
register from the right; each shift is a polynomial multi- 
plication. Each shift also shifts a bit out of the register 
from the most significant bit (MSb). We know that the 
register value will exceed our representation when the 
shifted-out bit is logical 1, so we arrange to perform our 
polynomial subtraction when this happens; that is, when 
we shift out a 1, we exclusive-OR the polynomial with 
the value in the register. Because our polynomial (the 
magic number) always contains a high-order bit, which 
always forces the shifted-out bit back to a logical 0, we 
need not actually operate on the high-order bit. So only 
zeros shift out, keeping the mod 2 polynomial remainder 
in the register. 

This bit-level hardware process is easily simulated. 
Turbo Pascal algorithms for the simulation are shown in 








Listing One, page 76. Software simulation has the advan- 
tage of a fast and easy investigation of an algorithm, al- 
lowing quick changes to try out various forms of optimi- 
zation. The program produces a “‘trace”’ of the execution, 
showing the step-by-step operation. 

The polynomial division register does not hold the de- 
sired remainder until the place containing the last data 
bit has been shifted out of the register. To do this, a zero 
data bit must be shifted in for every bit of the register. In 
the case of CRC-CCITT, 16 bits (2 bytes) of zeros need to be 
appended to the data. After entering the zero bits, the 
result in the polynomial division register is the CRC result. 
The common implementations of XMODEM usually re- 
quire these two trailing bytes. 

The CRC result can be obtained without shifting in the 
two zero bytes by rearranging the CRC register and feed- 
ing the data in at the ‘‘top end” of the system (see Figure 2, 
below). By shifting the CRC register, we can shift zeros in 
from the right. The data bit will be compared to the MSb 
in the CRC register, and only if they differ will the poly- 
nomial be subtracted. As before, this acts to keep the full 
remainder in the register; however, the remainder is 
now correct after each bit and requires no trailing zeros. 
A simulatioof this immediate-result algorithm (called, for 
lack of a better name, the CRC algorithm) is also given in 
Listing One for comparison to polynomial division. No- 
tice that both the polynomial division and CRC algorithms 
come up with the same remainder (or CRC value), but the 
CRC version does it faster and with more consistent logic. 


Faster CRCs in Software 

The bit-by-bit form of the CRC algorithm can be, and often 
is, directly simulated in software. The shifting and loop- 
ing required by this approach can be reduced in several 
ways. Both byte-oriented’ and table-oriented® algo- 
rithms have been available in the technical literature for 
a number of years. Table-oriented algorithms may (or 
may not) produce somewhat higher speed at the ex- 


Polynomial=X° + X* +X? +1=110101 


No 
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will help you: 


C Programmers: 
Here are 8 ways You can be more productive 


Dear Microcomputer Programmer, 
Let me tell you how you can find and choose the best development software for your needs — software that 


* Speed your development efforts 
* Write even better programs 


Tools. 


There is no obligation. You risk nothing with our moneyback guarantee of satisfaction. 


First Aid for 
C Programs 
C ToolSet 


Save time and frustration when 
analyzing and manipulating C 
programs. 

DIFF and CMP-for “intelligent” 
file comparisons. 

XREF - cross references vari- 
ables by function and line. 

C Flow chart - shows what 
functions call each other. 

C Beautifier - make source more 
readable. 

GREP - search for patterns. 

PP - formats your code so that 
it is easier to read and under- 
stand. 

C Util - acts as a general pur- 
pose file filter. 

There are several other pro- 
grams for converting and printing 
programs. 

Portable. Full source code. 

CPM, MSDOS $135 


Yours for more productive programming, 


Even for Small Files: 
Convenient, 
Fast Access 


CBTREE— Only $99 

Why spend time writing file 
management code when you 
can use consistent, flexible, 
documented, professional func- 
tion? Even multiuser record lock- 
ing and variable-length records 
are supported. 

Full, balanced Btree support 
includes use of multiple keys, un- 
limited number and length of 
keys. 

se this powerful ISAM, even 
if you’ve previously done with- 
out. 

Learn how to write systems for 
managing large files by usin 
CBTree source as a guide. Modify 
it and transfer it to another 
operating environment without 
royalties. 


Get File Access with 
TIGHTER Control 
db_VISTA Data Management 


Full source, no royalties and “normal” indexed file management 
ae pert of db_VISTA. Get more for the price of only an ISAM. 

ou can minimize data stored and access records even faster and 

more logically ae using indexes. Example: address and trans- 


action data shou 


not require redundant storage of customer 


names or numbers. Use pointers. Related data fields point to other 
related groups - the “network model” of data. 
Use db_VISTA as a “normal ISAM” or save programming time, ac- 
cess time and file size. Lattice, C86, Williams, Desmet, Microsoft C. 
MSDOS Multiuser source $995, Object $495 


Single user source $450, Object $169 


Unix, Xenix, & MacIntosh versions also available. Call for details. 


Shorten Development 
Time, Cut Frustrations 
BRIEF, The Programmer’s Editor 


Compile within BRIEF; use autoindent; “templates”, C specific 
error support. . . use windows, UNDO, and multiple large files. 


But edit YOUR WAY. 


Every feature you'd expect and more are integrated elegantly - 


and it can be modified by you. 


You deserve: 


“... the best text editor you can buy.” - John Dvorak, InfoWorld, 
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“... the best code editor...” David Irwin, Data Based Advisor, 


If you call for our advice, you must be completely satisfied with the 
product you purchase from The Programmer’s Shop. If not, you will 
receive a refund or replacement. 


catalog. 
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all now for details or our new 


* Increase productivity 


* Reduce your programming frustration 
All you have to do is consider one of these eight products for C programmers (or the 97 other C compilers, 


interpreters, support libraries, debuggers, or addons we offer). Then call one of our knowledgeable consultants 
- toll free - for details, comparisons, or for our specially prepared packets on C, C Libraries, or C Productivity 


SORT/MERGE Files 
for Clean, Fast 
Maintenance 
with OPT-TECH SORT 


Performance should not suffer 
with DOS or other “free” sorts. 
ISAMs alone are slow when 10% 
or even less is changed/added. 
OPT-TECH includes: 

- CALLable and Standalone use 

-C, ASM, BAS, PAS, FTN, 
COBOL 

- Variable and fixed length 

- 1 to 9 fields to sort/merge 

- Autoselect of RAM or disk 

- Options: dBASE, BTrieve files 

-1to10 files input 

- No software max for # Records 

- Allcommon field types 

- By pare headers, limit sort 

- Inplace sort option 

- Output = Record or keys 


— Bruce W. Lynch, President 


Add Communications 
Features to 
Your Programs 
Greenleaf Comm Library 


Greenleaf now enables you to 
communicate with remote sys- 
tems or databases with an asyn- 
chronous communications library 
forC. 

Individual transmission and re- 
ception ring buffers combine with 
an interrupt driven system. This 
eliminates the extra function of 
separately calling up the com- 
munications program. 

Included are 1 library/object 
files, 100 functions; 100 page 
manual, complete source cogs i- 
brary tailor-made to suit compiler 
and memory. Hayes-compatible 
modem commands, and a com- 
plete sample file transfer pro- 


a what you're using on an XT: gram. MSDOS $149 
1,000 128 byte records, 10 byte 
key in 33 seconds. MSDOS $85 

Make REAL TIME 


Programming Practical 
Csharp Realtime Toolkit 


__ Data acquisition, process control, robotics and devices monitor- 
He sper eanens become practical with Csharp! 
ull source code helps tailor programs to various boards and 


applications. 


eentrant, interrupt handling routines help schedule and react. 
Fast graphics routines help visualize what is happening. 


Control multiple ports reliabl 


, schedule tasks based on events, 


manage priorities — all with modular, tested, and reliable routines. 
Assess and manage the state of hardware at the object level. Let 


Csharp handle the details. 


Portable C source supports RT11 UNIX and MSDOS $600 


Fast File Access with Source 
Variable Length Fields Save Space 
CIndex ISAM Product Line 


C-Index contains a high performance ISAM, balanced B + Tree in- 
dexing system and variable length fields. The result is a complete data 
storage system to eliminate tedious programming and add efficient 


performance to your programs. 


Features include random and sequential data access, virtual 
memory buffering, and multiple key indexes. ; 

With no royalties for programs you distribute, full source code, and 
variable length fields C-Index/Plus fits what you are likely to need. 

Save time and enhance your programs with C-Index/Plus. 
MSDOS $349. With C-Index/File for $89, or/Pro for $179. 
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pense of a sizable table of constants that generally 
must be intialized before use. Examples of the various 
forms of CRC algorithms are given in Listing Two (page 
78). 

We can speed up the algorithm even more by precom- 
puting the CRC for all possible combinations of a 16-bit 
CRC and a data byte and then saving the results. Done 
naively, this would be a transformation of 24 bits (16 bits 
of the previous register and 8 bits of data) into 16 bits. This 
approach would thus require 27> bytes (about 34 mega- 
bytes) of lookup table. In order to make the table ap- 
proach practical, we must find a way to reduce the size 
of the table. 

If we examine the CRC hardware, we notice that the 
current data bit is always combined with the current 
MSb of the CRC register. When we compute a whole-byte 
CRC, we end up combining the whole data byte with the 
high byte of the CRC. We can precompute the exclusive- 
OR of the data byte and the high byte of the CRC register 
(this is a single-byte operation in software), yielding a sin- 
gle byte we can call the combined term or the combina- 
tion value. 

For the common 16-bit CRCs, it turns out that the CRC 
register changes in patterns that have a direct mapping 
from the combination value. Thus, it is possible to pre- 
compute the CRC changes for all 256 possible combination 
values. Then, when we need to do a CRC, we can use the 
1-byte combination value to look up a corresponding 2- 
byte result, then use that result to correctly change the 
CRC register. As you might expect, the required change is 
simply a 2-byte exclusive-OR operation. 

To generate the data for the lookup table, we need only 
generate the 2-byte CRC result for all 256 possible data 
bytes, given an “‘all-zeros’” starting CRC register. Each re- 
sult is a 1 for those bits in the CRC register that are changed 
by a particular combination code. We can use a nontable 
implementation of the CRC to compute the table values. 

This approach to generating a table of CRC values re- 
quires a 512-byte lookup table. We must fill the table with 
the correct data in an initialization step and perform a 
few more run-time operations than the straight lookup 
process requires (compute the combination value, look 
up the result, then apply the result to the CRC register and 
compute the new CRC value). 

Another variation that is faster than the original bit-by- 
bit approach and that also eliminates the lookup storage 
of the table approach is the bytewide shifting algorithm. 
A bytewide approach eliminates seven bit-by-bit test- 
and-jump operations, which are a significant overhead 
in the bit-by-bit version, and also takes advantage of fast- 
shift and parallel-logic operations available on most pro- 
cessors (as well as some high-level languages such as Tur- 
bo Pascal or C). 

First, we need some more algebra: By giving each CRC 
register bit and each data bit a separate symbol, we can 
express the result of a CRC operation symbolically. Each 
bit of the CRC register will be represented by a formula 
showing all the data and original CRC bits that affect that 
bit in the result. If we take the exclusive-OR of the bits 
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specified by the formula, we can directly calculate any 
bit of the CRC result. 

In order to generate the formulas for each bit of the 
CRC register, we create an algebraic analog of the shifting 
and combining process of the bit-by-bit CRC algorithm. 
Instead of shifting bit values (as in a normal shift register), 
we move the whole symbolic formula for each bit to the 
next higher bit position. Instead of actually performing 
an exclusive-OR operation, we concatenate the formula 
for the data bit to each of the affected bits in the CRC 
register with a symbol indicating an exclusive-OR opera- 
tion. If ever we find two identical variables in any one 
formula, we can cancel and eliminate them both (be- 
cause anything exclusive-ORed with itself is zero, and 
zero exclusive-ORed with any value is just that value). 

After symbolically processing a whole byte of data and 
eliminating common terms, we come up with a symbolic 
representation for each bit of the result. By factoring this 
expression into convenient computer operations, a pro- 
gram is obtained that uses the bit parallelism available in 
software. 


CRC Deviations 

More improvement is possible. We have previously as- 
sumed that the CRC register is cleared before starting the 
computation and also that we specifically compare the 
stored (or transmitted) CRC value to the current CRC re- 
sult. These assumptions are discarded in protocols other 
than XMODEM.?° 

When a CRC register contains only zeros, processing a 
zero data bit does not change the CRC remainder. So, if 
the CRC register is clear and extraneous zero bits do oc- 
cur, these data errors will not be detected. For this rea- 
son, most current CRC protocols initialize the CRC register 
to all 1s before they start the computation, allowing the 
detection of extraneous leading zeros. 

We can also eliminate the need to detect the separate 
CRC field at the end of a data block. If the CRC result is 
simply attached to the end of the data, the receiving CRC 
register will clear itself automatically if there is no error, 
that is, each bit of the stored or transmitted CRC value 
should cancel the similar bit in the CRC register. Although 
of minor importance for software implementations, this 
is a reasonable simplification for hardware CRC devices 
because it allows the same hardware to be used regard- 
less of block length. 

When the CRC remainder is appended to the end of the 
data (thus eliminating the need to detect it as a separate 
field), and if bit-level CRC hardware is also to be support- 
ed, CRC software may need to use data in reverse bit or- 
der. This is because bit-level CRC hardware works on data 
after it has been serialized, and data is traditionally serial- 
ized LSb-first. That is, the parallel-to-serial conversion in 
an asynchronous serial device sends the rightmost bit of a 
character first and the leftmost bit last. The bit-level CRC 
hardware has little choice but to treat the resulting data- 
stream as a single large number, but that data-stream has 
its byte-level bit-order changed from our usual numeri- 
cal expectations. 

If an MSb-leftmost CRC routine is to be compatible with 
bit-level CRC hardware, it may be necessary to reverse 
the bit order of every data byte (before each is processed 
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or serialized) and also the CRC remainder bytes (after the 
block ends). Bit-order reversal can be done in software, 
hardware, or both. Alternately, the CRC algorithm could 
be reconstructed so as to use and hold MSb-rightmost 
data. 

In strictly software CRC implementations, however, we 
work on data before it is serialized and after it is recov- 
ered, and we trust any serialization that occurs to be 
transparent. We can t afford to treat the data-stream as a 
single large value with MSb-leftmost, with MSb-leftmost 
bytes, and a similar MSb-leftmost CRC remainder append- 
ed on the right. This arrangement is most consistent with 
both the theory and our numerical conventions and is 
the form used by XMODEM. The CRC routines shown in 
this article use MSb-leftmost data and keep the result also 
in MSb-leftmost format. 

If we arrange to verify the CRC by processing the CRC 
result as data, we again fall prey to extraneous zero data 
bits. In order to detect such errors, we arrange for the 
CRC register to take on a unique nonzero value in the 
- event of no error. By some quirk of the algebra, it turns 
out that if we transmit the complement of the CRC result 
and then CRC-process that as data upon reception, the 
CRC register will contain a unique nonzero value depend- 
ing only upon the CRC polynomial (and the occurrence of 





























CRCTIME, 85/9/18 
Execution times for various CRC implementations. 
Copyright (c) 1985, T.F. Ritter; All Rights Reserved. 






BEGIN Validation Testing. 
Reference = crcittby (Pascal Bit-By-Bit). 
crcfbbb (Pascal Fast Bit-By-Bit): No error. 
crcitta (Pascal Byte): No error. 
crctablu (Pascal Table): No error. 
mercitt1 (Machine Code Byte): No error. 
mercitt3 (Machine Code Table): No error. 

END Validation Testing. 





Turbo Pascal runs CRC-CCITT on 8088 under Bare MSDOS 
FOR 10000 OPERATIONS: 7.16 MHz CLOCK (multiply by 1.5 
for 4.77 MHz) 






Empty loop: 0.160 secs 
Empty procedure in loop: 0.880 secs 
(procedure overhead alone = 0.072 msec each) 













10,000 Uses(secs) 1Use (msec) 

Procedure InLine Procedure InLine 
Pascal Bit-by-Bit: 13.790 13.070 1.379 1.307 
Pascal Fast B-B-B: 7.310 6590. U./31 0.659 
Pascal Byte: 2.150 1430 0215 0.143 
Pascal Table: 1.430 0710 0.143 0.071 
Machine Code Byte: 1.050 0.330. 0.105 0.033 
Machine Code Table: 0.890 0.170 0.089 0.017 


Table 1 
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no errors). This scheme is now used by most CRC proto- 
cols, and the magic remainder for CRC-CCITT is $1D0F 
(hex). 


Actual CRC Implementations 

I constructed several CRC implementations for speed and 
size comparisons (see Listing Two). The CRC-CCITT poly- 
nomial was used because this is the polynomial used in 
XMODEM, as well as many other data communication 
uses. I used Turbo Pascal, though the code could obvious- 
ly be rewritten in C. A couple of the operations used are 
Turbo Pascal extensions: Swap( ) is an INTEGER function 
that exchanges the high and low byte of an integer value; 
Lo( ) is an INTEGER function that selects only the low byte 
of an integer. 

I used the Pascal Bit-by-Bit approach (a direct simula- 
tion of the hardware method) to provide a reference 
against which the other algorithms are compared. The 
Pascal Fast B-B-B is an improved bit form comparable to 
most high-level language implementations of the XMO- 
DEM CRC, except that this version requires no trailing ze- 
ros to finish the calculation (and so is already faster than 
the usual version). The Pascal Byte version illustrates the 
improvement wrought from algebraic factoring; the Pas- 
cal Table version shows how a precomputed table can 
simplify and speed execution-time operation. The Ma- 
chine Code versions of Byte and Table show yet more 
improved speed. The different approaches illustrate var- 
ious trade-offs of speed, space, and specialization. The 
results (Table 1, left) show a range of almost two orders of 
magnitude in execution speed. 

Each CRC implementation was made into a Pascal PRO- 
CEDURE for easy testing and comparison. For validation, 
varying amounts of program code from main memory 
were processed by each implementation. All algorithms 
achieved the same results. Several of these versions have 
been placed in an implementation of XMODEM with good 
results. 


Time Tests 

For the time tests, each implementation was executed 
10,000 times under Turbo Pascal 3.01A on an 8088 in a 
Leading Edge PC with a 7.16-megahertz (MHz) clock; the 
times would be 50 percent longer on an IBM PC. The time 
was taken automatically from MS DOS. Because the MS DOS 
timer ticks only about 18.2 times per second, this method 
is only precise within about 55 milliseconds (msec) at both 
the start and end of the timing interval. The large num- 
ber of repetitions minimize this effect. 

The time reported as ‘10,000 uses’’ is real time de- 
creased by the amount of time taken by 10,000 empty 
loops, thus giving us the time associated with the proce- 
dure call and execution instead of also including the loop- 
ing structure that we use only for the tests. The In Line 
column decreases ‘10,000 uses’ by the time taken for 
10,000 procedure calls and returns, giving the time for 
execution only. 


Selection Criteria 

The time necessary to process a byte (including the CRC 
operation and whatever queuing operations and other 
tests that need to be performed) should be less than the 
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time it takes to receive a character. We could simply ac- 
cumulate the data in a block as it is received and then 
CRC-process the whole block, but this procedure would 
add some delay, or latency, between receiving the last 
data byte and returning a response to the sender (ACK for 
good data and NAK for an error in XMODEM). Some XMO- 
DEM implementations appear to use this method, giving 
the impression that the protocol or the CRC is responsible 
for the delay. Because fast CRC routines are obviously pos- 
sible, it is hard to rationalize any latency at all. 

The Pascal Byte version, which takes only a few lines 
of code and is machine independent (under Turbo Pas- 
cal), may be suitable for speeds up to 9,600 bps and is a 
reasonable choice for most use. The Pascal Table version 
is a little faster, but the table generally must be initialized 
before use, either by using a different CRC version, or 
perhaps by reading the values in from a file. Alternately, 
(in most languages) the table could be defined in the 
source code as a large body of constants. 

The faster versions can generally benefit from being 
used in-line (that is, not as procedures) to avoid procedure 
call/return overhead, but this is also inconvenient because 
each use would involve duplicating the same code in dif- 
ferent places. The Machine Code Table version is shorter 
and so would minimize the duplication penalty. The Pas- 
cal Table version can also be used in-line because it takes a 
minimum amount of code. I use an Include file holding 
the Machine Code Byte version, then call the rou- 
tine as a procedure; the resulting code is both small and fast. 


Other Uses 

Although this article has concentrated on CRCs in commu- 
nications and data storage, CRCs can be used in many dif- 
ferent applications involving error detection. Such appli- 
cations include start-up verification of ROM code, 
load-time verification of RAM modules (as in the 6809 oper- 
ating system OS9), and program and data correctness 
validation. 

Note that CRC polynomials are designed and construct- 
ed for use over data blocks of limited size; larger amounts 
of data will invalidate some of the expected properties 
(such as the guarantee of detecting any 2-bit errors). For 
16-bit polynomials, the maximum designed data length is 
generally 215—1 bits, which is just one bit less than 4K 
bytes. Consequently, a 16-bit polynomial is probably not 
the best choice to produce a single result representing an 
entire file or even to verify a single EPROM device (which 
is now commonly 8K or more). For this reason, the OS9 
polynomial is 24 bits long. 


How To Learn More 

A good introduction to CRCs can be found in the classic 
Error Correcting Codes, 2d ed., by Peterson and Weldon 
(Cambridge, Mass.: MIT Press, 1972), but you can expect to 
do some serious math to understand it. A brief nonmathe- 
matical chapter on CRC error detection in data applica- 
tions (with some good figures) is available in Technical 
Aspects of Data Communication, 2d ed., by J. McNamara 
(Digital Equipment Corporation: Digital Press, 1982). The 
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very brief section in Computer Networks by A. Tanen- 
baum is also fairly good. 


Notes 

1. The CRC does not require a fixed block size (though 
there is a built-in maximum), but some error-correcting 
protocols do. Larger amounts of data are simply parti- 
tioned into blocks that are considered separately. 

2. Peterson, W. W., and Brown, D. T. “Cyclic Codes for 
Error Detection.” Proceedings of the IRE (January 1961): 
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3. Tanenbaum, A. Computer Networks. 128—32. Engle- 
wood Cliffs, N.J.: Prentice-Hall, 1981. 
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DDJ (February 1984): 27. 

5. Error detection is only part of the requirements for a 
protocol. Other requirements include transmitting the 
data in blocks, numbering the blocks, and responding 
when a block has been received. The corresponding de- 
sign decisions in XMODEM typically add yet another four 
bytes to each block transferred, for a required overhead 
of about 4.5 percent. This value can be, and often is, addi- 
tionally degraded in implementation. 

6. The general case of polynomial arithmetic, which al- 
lows a nonconstant base, generally makes carry opera- 
tions (between terms) difficult. 

7. It is common and traditional for the CRC register to be 
shown shifting right, which is the exact reverse of this 
author’s analogy to binary division. Given our system of 
numeration, it seems reasonable to place most significant 
digits of one value to the left, and it is then correct for the 
CRC register to be seen as shifting to the left. 

8. Helness, K. “Implementation of a Parallel Cyclic Re- 
dundancy Check Generator.’”’ Computer Design (March 
1974): 91—96; Vasa, S. “Calculating an Error-Checking 
Character in Software.’’ Computer Design (May 1976): 
190—92; Socha, H., et al. ‘“Letter to the editor.’ Computer 
Design (May 1979): 6, 12; Kjelberg, I. ‘“Letter to the editor.” 
IEEE Micro (August 1985): 4, 99. 

9. Whiting, J. “An Efficient Software Method for Imple- 
menting Polynomial Error Detection Codes.’ Computer 
Design (March 1975): 73—77; Perez, A. ‘‘Byte-wise CRC Cal- 
culations.’ IEEE Micro (June 1983): 40—50; Schwaderer, D. 
“CRC Calculation.”’ PC Tech Journal (April 1985): 118 — 32. 
10. McKee, H. “Improved CRC Technique Detects Errone- 
ous Leading and Trailing 0’s in Transmitted Data Blocks.” 
Computer Design (October 1975): 102—6; Fortune, P. 
“Two-Step Procedure Improves CRC Mechanism.” Com- 
puter Design (November 1977): 116— 29. 

11. Some protocols other than XMODEM allow subsequent 
blocks to be sent before a previous block is acknowl- 
edged, thus minimizing the latency problem. 
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ARTICLES 


ea 
Fast Integer Powers 





ecause the Pascal language | 
B does not provide any built-in 

operation (such as FORTRAN'S 
x**n) for powers of numbers, pro- 
grammers are led to try the costly 
and unreliable substitute 
exp(n*In(x)). When n is an integer, 
however, there are often ways to 
factor out computation of powers al- 
together. When direct use of powers 
is still desirable, the Pascal function 
_ PowerN(x, n) introduces the fastest 
_ method known for general computa- 
tion of x**n for n, an unrestricted in- 
teger not known in advance. 


Increasing Use of Powers 
Repetitive computation of powers of 
numbers is almost commonplace 
now that personal computers and 
software make elaborate arithmetic 
computations more affordable and 
easier to express. 

Powers do not occur merely in the 
evaluations of polynomials and the 
summations of series for computing 
specialized mathematical functions. 
Powers (especially ones with variable 
exponents) occur routinely in work 
with statistics and probabilities and in 
financial and economic formulas. 

Typically, the exponent is an exact 
integer, opening up the possibility of 
using special shortcuts for faster and 


© 1985 by Dennis E. Hamilton, 1952 
Baird Rd., Penfield, N.Y. 14526. Per- 
mission is granted for copying the 
software in this article for use in an 
electronic computer, whether or not 
for commercial advantage, provided 
that all notices of copyright and au- 
thorship appear and this publication 
and its issue date are credited. To 
copy or republish otherwise requires 
specific permission and may require 
payment of a fee. 


36 





oe Dennis . Hamilton 


_‘The function intro- : 3 


duces the fastest — 


| wethod jor computa- 
‘ tion of xn. This dec- | 


interest in computa- 
tion of powers. — 





more accurate computation. The Pas- 
cal PowerN function introduced in 
this article uses just such shortcuts to 
implement the fastest general com- 
putation known. 

PowerN is extremely efficient on 
systems, including most microcom- 
puters, where floating-point arith- 
metic is more costly than small-inte- 
ger hardware operations. Use of 
PowerN is also almost always prefer- 
able to use of the questionable 
exp(n*In(x)) logarithmic method. 
(See sources 1; 7; 15; 11, Section 4.6.4 
for even better possibilities.) 


Powers Defined 

For integer exponent value, n, the 
nth power of the base value x is des- 
ignated here by the notation x**n 
originally popularized in FORTRAN. 
These powers are usefully under- 
stood in terms of repeated-multipli- 


cation operations according to the | 


scheme proposed in 1676 by Isaac 
Newton: 


XT ere ee TX: n>0 
—Tixs > 
= 1, = Q0andx <>0 
= 1/x*(—n), n< Oandx <>0 


This formulation of x**n (and the 
mathematician’s x”) satisfies our in- 
tuitions (for n > 0 at any rate) and 


for Pascal 











allows use of some nicely general- 
ized ‘“‘laws of exponents’ for powers: 


xg KT xy, 
x < > 0Oor (i > Oandj > 0) 
x**(i*j) = (x**i)**j, 


The restrictions are significant: Stan- 
dard mathematics defines no specific 
quotients for divisions by zero; it is 
technically important to avoid sneak- 
ing any in as loopholes of the expo- 
nent laws. With due allowance for the 
restrictions, satisfaction of these laws 
justifies the shortcuts in practical com- 
putations with variable, large n. 


Algorithm Performance 
Pascal function PowerN(x, n), given 
in Listing One, page 84, derives x**n 
using exactly 


MCin) = floor(g(n) ) + 


bits1(n) — 1, n>0 
= 0, n-=—.0 
= MC(—n), n= 0 


multiplications. Here, bits1(n) is the 
number of 1-bits in the representa- 
tion of n by a binary integer, /g(n) is 
the base 2 logarithm of n, and floor(x) 
is the greatest integer that isn’t larger 
than x. Even the ambitious case 
PowerN(x, 32767) is computed with 
only 28 multiplication operations (in- 
cluding sgqr(x) = x*x). 

Another part of the claim to 
PowerN’'s superiority, despite its su- 


_ perficial complexity, involves the de- 
_ cision cost expended in order to 


_ achieve so few multiplications. The 


number of questions of the form 
odd(i)? i < > 1?n < 0? that have to 
be asked is 


DCin) = MCin) + 4, n< >0O 


where two are just for checking the 
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special n = 0 and n < 0 cases. The 
two extras arise when the not odd(i) 
and i < > 1 checks finally fail—it’s 
time not to multiply. 

PowerN also never computes any- 
thing not used in the final result. Fail- 
ures (such as overflow) in intermedi- 
ate computations occur only when 
failure is truly inescapable. 


Accuracy Considerations 

To confirm that PowerN does indeed 
produce expected results, I have in- 
cluded a Turbo Pascal driver pro- 
gram called TPWRN.PAS (See Listing 
Two, page 84.) 

Using TPWRN, 7**i is computed ex- 
actly and rapidly up toi = 14. There- 
after, the 39-bit effective precision 
(and 11-digit output rounding) are in- 
adequate for confirming exact re- 
sults with the CP/M-80 edition of Tur- 
bo Pascal. 

On the other hand, comparative 
calculations for (1/7)**—i, although 
mathematically the same as 7**i, de- 
teriorate quickly. Value 1/7 cannot 
be carried exactly, and the discrep- 
ancy is quickly magnified in taking 
powers. By i = 174, the error exceeds 
10, even though minimal error in 
7*"14 has just shown up. 

The final column of TPWRN output 
shows how much more quickly the 
calculus textbook approach, using 
exp(i*In(7)), breaks down. Because 
this method is noticeably slower as 
well, there is nothing to commend it 
for exact-integer exponents. 

In making use of these results, 
keep in mind that the PowerN vin- 
tage 1.xx algorithms are the best 
available in terms of providing a di- 
rect solution at minimum cost. Nev- 
ertheless, working with the same 
precision as the input data inevitably 
dooms you to some sort of error. It is 
wise to be mindful of the prospective 
errors, however insignificant you re- 
gard them to be. 


PowerN Method 

PowerN makes rapid computation of 
integer powers using the fundamen- 
tal method of Donald E. Knuth’s algo- 
rithm 4.6.3A (see source 11). The 
number of floating-point multiplica- 
tions is reduced by taking advantage 
of the laws of exponents, in form 


i>-O 
i>0oO 


x oI 
xe t2i-+ 1) 


sqr(x)**i, 
Xe ks 
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In Knuth’s formulation, as in do begin 


PowerN, the first transformation is x := sqr(x); 
performed in an inner loop that i :=idiv2 
doesn't stop until an odd exponent is end; 
inevitably reached. This idea is ele- r:=rxj;i:=i-1; 


gantly restated, at somewhat in- end; 
creased decision cost, by Dijkstra and 


Jensen and Wirth (see sources 3 and The lower decision cost of PowerN 


10): is obtained by not checking for even i 
quite so often. This applies a sugges- 

r:= 1.0; tion of David Gries to the effect that 
while i > 0 the inner while can be replaced by 


repeat upon arranging that i always 
be even whenever thei > Otest passes 


do begin 
while not odd(i) 
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PASCAL 
(Continued from page 37) 


(see source 6). The saving of decisions 
ie comparable to what Knuth obtains 
from the start using go fo. 

The main new idea in PowerN in- 
volves using the initialization (for 
guaranteeing that even powers al- 
ways remain) to also replace the usu- 
alr := 1.0 and first r:= r*x by a well- 
timed r := x. 

The procedure is further opti- 
mized by using i shr 1 in place of i div 


2 on Pascal implementations that 
permit it. Because i div 2 has the ef- 
fect of also decrementing odd values 
of i in the one operation, separate ad- 
justments to i are unnecessary. 
PowerN(x, 0) = x/x deserves spe- 
cial mention. It is not known what 
nonstandard assumptions are imple- 
mented in each computer arithme- 
tic. If there is some provision for un- 
defined operation 0/0, however, you 
would wish to employ it. Use of x/x 
to catch x = O or x = nonstandard 
value is then consistent with IEEE 
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Interpreter 


You Won't 
Outgrow 


C-terp will grow with you as you progress 
from novice through professional to guru. 
Unbelievable, but true, the easiest-to-use 
C interpreter will provide you with the 
most advanced programming features for 
upward growth. Our exclusive object 
module support enables you to add 
libraries (like HALO, PANEL, Windows for 
C, etc., or your own homebrew libraries) 

to C-terp as you add them to your comput- 
ing repertoire. Use C-terp as a microscope 
on your libraries! Flip a bit and allow our 
software paging (NEW) to handle those 
big jobs! There are no fixed-size tables 

to overflow, and C-terp can be configured 
for different screens and screen adapters 
(NEW). With multiple modules and full 
K&R support, we offer a dream C environ- 
ment. 


@ Our new improved configurable editor 
competes with anything going. 


@ Speed -- Linking and semi-compilation 
are breathtakingly fast. 


@ Convenience -- Errors direct you back 
to the editor with the cursor set to the 
trouble spot. 


@ Symbolic Debugging -- Set breakpoints, 
single-step, and directly execute C ex- 
pressions. 


@ Compatibility guaranteed — batch file to 
link in your compiler’s entire library. 
Supported compilers include: 
Computer Innovations C86, Lattice C, 
Microsoft C 3.0, Mark Williams C86, and 
Aztec C. 


@ Many more features including batch 
mode and 8087 support. 
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What Our Users/ 
Reviewers Are Saying 


“easy to use, powerful, and a 
timesaver.” 


.. we absolutely LOVE C-terp.” 


‘... has restored my faith in 
interpreters.” 


..a programmer's dream.” 


“wonderful technical assistance.” 
‘increased our productivity by a 
factor of 40.” 


.. the best C product ever, in any 
category.” 


@ Price: $300.00 (Demo $45.00) 
MC, VISA 


Prices include documentation and shipping 
within U.S. PA residents add 6" sales tax. 
Specify compiler. 
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compatible machine) under DOS 2.x 
and up with a suggested minimum of 
256 Kb of memory. It can use all the 
memory available. 


* C-terp is a trademark of Gimpel Software. 
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proposals for floating-point arithme- 
tic (see source 2). It is also as good as 
any other approach, assuming con- 
sistent extension of the laws of arith- 
metic and exponentiation to propo- 
gate indeterminate results: 


x*0 = SO REO, 
xjk = 1/(x/x); 
or simply 

x*o= x™(1-1) = X/x. 


PowerN is contrived to propogate all 
cases without knowing in advance 
which ones actually apply. 


Availability 

Current editions of POWERN.PLB (List- 
ing One) and the TPWRN.PAS test 
driver are posted to the Borland In- 
ternational Forum (page BOR-100) on 
the CompuServe Information Ser- 
vice. Database DL1 of the forum pro- 
vides ready-to-run Turbo Pascal ver- 
sions. 

I check onto CompuServe regular- 
ly. You can contact me via. User 
ID 70100,271 for open discussions 
on either the CP/M Forum (go CPMSIG) 
or the Borland International Forum. 


Sources 

Because powers are not as elemen- 
tary as the standard operations of ad- 
dition, subtraction, and multiplica- 
tion, they (like general division and 
remainder operations) still lack 
widely recognized standard mathe- 
matical definitions. (Despite this con- 
dition, many programming language 
manuals and standards continue to 
omit definitions for their language's 
implementation of powers, long af- 
ter the ALGOL 60 report established 
the standard of precision I've tried to 
sustain here.) 

This decade has seen renewed in- 
terest in computation of powers be- 
cause the high-performance tech- 
nique provides a lovely algorithmic 
method for generalization to several 
other problems. Even so, recent in- 
terest in describing computational 
methods for powers hasn't stabi- 
lized: Little slips are made in even 
the latest work, sometimes despite 
the existence of superior versions in 
older, accessible publications. 


1. Cody, William J., Jr., and Waite, 


Dr. Dobb’s Journal, February 1986 





William. Software Manual for the Ele- 
mentary Functions. Englewood Cliffs, 
N.J.: Prentice-Hall, 1980. If computa- 
tional cost and exclusion of useful 
cases weren't enough of an indict- 
ment of exp(n*In(x)) for x**n, there 
are also accuracy problems to con- 


tend with. Chapter 7 describes the | 


considerations that apply to sustain- 
ing maximum numerical precision 
in the computation of powers. 


lems either, as demonstrated with 
the TPWRN driver. 


2. Cody, W. J.; Coonen, J. T.; Gay, D. M.; 
Hanson, K.; Hough, D.; Kahan, W.; Kar- 
pinski, R.; Palmer, J.; Ris, F. N.; Steven- 
son, D. “A Proposed Radix- and Word- 
Length-Independent Standard for 
Floating-Point Arithmetic.’”’ IEEE MI- 
CRO 4, 4 (August 1984): 86—100. See the 
references, too. Articles in the special 
issue of IEEE Computer 14, 3 (March 
1981) provide extensive discussion of 
the approach adopted for IEEE float- 
ing-point arithmetic standards. 


3. Dijkstra, Edsger W. A Discipline of | 
Programming. Englewood Cliffs, N.J.: | 
Prentice-Hall, 1976. The sixth small | 


example, pp. 65—67, provides some 
useful insight into the fundamental 
fast exponentiation technique, its un- 


derlying beauty, and the pitfalls of | 


seemingly simpler alternatives. 


4. Dromey, R. G. How to Solve it by | 


Computer. London: Prentice-Hall In- 
ternational, 1982. Chapter 1, especial- 


ly Sections 1.4—1.7, is enough to com- | 


mend this book as a companion to a 
good Pascal manual and primer. All 
of Chapter 3 is relevant to the meth- 
ods and application of PowerN, al- 
though algorithm 3.7 has the “‘late- 
termination inefficiency” of an extra 
sqr(x/), just as in sources 9 and 16. The 
careful discussion of the method, 
benefits, and special applications 


(Problem 3.7.3) make this treatment | 


well worth attention, however. 


5. Gries, David. The Science of Pro- 

gramming. New York: Springer-Ver- | 
lag, 1981. A crisp derivation of the | 
correctness of the fundamental | 


transformation is found on pp. 
239 — 240. It is an useful exercise to es- 
tablish that the different form of the 
Knuth transform and its counterpart 
in PowerN preserve all the essential 
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conditions. (See sources 3 and 10 also.) 


6. Gries, David. Personal communica- 
tions. June 13, 1985 and August 14, 
1985. 


7. Hamming, Richard W. Introduction 
to Applied Numerical Analysis. New 
York: McGraw-Hill, 1971. Nowadays, 
more people than ever before seem 


| to be using computation in danger- 
PowerN doesn't escape such prob- | 


ous ignorance of underlying assump- 
tions, but the microcomputer is also a 


tool for demonstrating and compre- | 


hending the limitations of those very 
same methods. The first chapters of 
this book provide a good start on 
learning how not to surrender your 
fate to some printed formula. 


8. Horowitz, Ellis, and Sahni, Sartaj. 
Fundamentals of Computer Algo- 
rithms. Potomac, Md.: Computer Sci- 
ence Press, 1978. Chapter 9 is of inter- 
est in conjunction with study of 
source 11, Section 4.6.4. Exercise 
9—17 and the related discussion of 
Horner's method (pp. 424— 428) make 





unceremonious introduction of the 
Dijkstra-Jensen-Wirth version as a 
hint for evaluation of entire (sparse) 
polynomials. Additional ideas are of- 
fered in Exercise 9— 22. 


9. Hultquist, Paul F. “The Powers 
That Be.”’ PC Tech Journal 3, 5 (May | 
1985): 213— 214. Here's an alternative 
formulation to be compared against 
PowerN's delegation of error han- 
dling to intrinsic system actions. Al- 
though this solution is also based on 
Knuth’s algorithm 4.6.3A, its state- 
ment in Pascal has introduced a use- 
less but overflow-prone squaring of x 
that Knuth avoided. (See source 11, 
exercise 4.6.3 1) 


10. Jensen, Kathleen, and Wirth, Nik- 
laus. Pascal User Manual and Report. 
2d ed. New York: Springer-Verlag, 
1978. See Programs 4.8 (pp. 28—29) 
and 11.8 (p. 81). Jensen and Wirth rec- 
ognize that if the exponent is even 
and nonzero, it must remain non- 
zero until after it is divided down to 
an odd value. This seems to be the 
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PASCAL 
(Continued from page 39) 


earliest widely published example of 
using a nested while (PowerN: repeat ) 
to deftly avoid questions for which 
the answer is already certain. Never- 
theless, Section 11 (p. 160) gives a 
power function that always squares 
the base value once too often. This 
pattern is sustained in the latest edi- 
tion as well. 


11. Knuth, Donald E. The Art of Com- 
puter Programming. vol. 1, Funda- 
mental Algorithms. 2d ed. Reading, 
Mass.: Addison-Wesley, 1973. Section 
1.2.2 and Exercise 1.3.1—22 provide 
useful background on computation 
of powers. 

Vol. 2, Seminumerical Algorithms. 
2d ed. Reading, Mass.: Addison-Wes- 
ley, 1981. Section 4.6.3, Evaluation of 
Powers, also shows where further 
performance can be gained when 
there are special cases and global us- 
age information to exploit. Section 
4.6.4, Evaluation of Polynomials, can 
be even more valuable, though. 

PowerN’s algorithm 4.6.3A heri- 
tage is now masked by the amount of 
reordering introduced to utilize Pas- 
cal control structures. Algorithm 
4.6.3A is optimized around odd(i) or i 
mod 2 being obtained as a byproduct 
of a single i div 2 operation. This is 
particularly profitable when work- 
ing in nonbinary representations. In 
contrast, PowerN is loaded with im- 
plicit assumptions about use of bina- 
ry integers and the related efficiency 
of odd(i) and i div 2 (or i shr 1) 
determination. 


12. Knuth, D. E.; Lynch, W. C.; and 
Speroni, J. Univac Solid-State Systems 
FORTRAN II Processor. Univac Divi- 
sion of Sperry Rand, 1962. ‘‘x**J 
Power-Routine’ update, May 20, 
1963, by Dennis E. Hamilton. This use 
in an equivalent of BCD arithmetic ap- 
proached algorithm 4.6.3A simplicity 
by noticing that i must be odd when 
2*(i*S dshr. 1) -< > i and dshr isa 
decimal shift. It was also economical 
to detect shortcuts for x**2 = 1 andr 
= 0. Similar tests were removed from 
PowerN because any benefit for mi- 
crocomputer Pascal is doubtful com- 
pensation for the added overhead. 


13. Newton, Isaac. “‘Letter of October 
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24, 1676”. In A Source Book in Mathe- 
matics, 1200—1800. D. Struik, ed. 
Cambridge Mass: Harvard University 
Press, 1969. The common (pre-FOR- 
TRAN) notation for powers was intro- 
duced by Descartes and generalized 
by Newton and Leibniz [Cajori, Flor- 
ian. A History of Mathematical Nota- 
tions. vol. 1. Lasalle IL: Open Court, 
1928. Sections 297—315]. 


14. Reynolds, John C. The Craft of 
Programming. London: Prentice-Hall 
International, 1981. Section 1.3.5 
works carefully through several re- 
finements just short of the Knuth for- 
mulation. In Section 4.2.5, the extra- 
neous sqr(x) is avoided in a version 
that is rather tangled but systemati- 
cally derived. There is, however, 
well-structured relief promised in a 
hint (Exercise 4.2.8 — 1) credited to Da- 
vid Gries. 


15. Wirth, Niklaus. Systematic Pro- 
gramming. Englewood Cliffs, N.J.: 
Prentice-Hall, 1973. Chapters 1—9 
provide just the sort of weaponry 
needed to derive modules such as 
PowerN (see Exercises 5.1—5.3) and 
also learn how to avoid needing 
PowerN in many cases (Chapter 9). 


16. Wirth, Niklaus. Programming in 
Modula-2. 2d ed. New York: Springer- 
Verlag, 1983. An interesting variant 
on the PowerN method is discussed 
in Section 6.2 (pp. 20— 23). Saving dec- 
rements in the second Power module 
is also at the cost of an extra squaring 
and possible overflow, however. 

PowerN borrows the useful idea 
that odd i need not be decremented 
because (2*k +1) div 2 = (2*k) div 2 
anyhow. It now takes more thought 
to properly state the second while 
condition and accompanying loop 
invariants, however. 


DDJ 
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nically advanced programming 
language available, you should 
learn Ada. 

Validated Ada compilers are ex- 
pensive and run on mainframe com- 
puters, but there is an affordable Ada 
subset that runs on CP/M-80 systems 
and that is complete enough to give 
you some useful experience. I wrote 
and tested all the examples in this ar- 
ticle on a 62K CP/M system using a 
beta-test version of the Maranatha A 
compiler. A later version of this com- 
piler is now sold under the name Su- 
persoft A. 

Ada’s most attractive features 
show up only in large, complicated 
programs. Simple routines, such as 
sorting algorithms and finding facto- 
rials, don’t demonstrate Ada well. 
That's why the following example is 
not an example of a program but is 
an example of a software develop- 
ment project. 

Here’s the problem. Imagine that 
you are starting a video-game busi- 
ness and that your first product is to 
be a Draw Poker game similar to 
those that are legal in Nevada. 

You start off with this system re- 
quirement: The player puts as many 
coins in the game as he wants to bet, 
and it displays five playing cards. 
(Throughout this article, the feminine 
pronouns she and her always refer to 
Ada. The neuter pronouns it and its 
refer to an inanimate object, usually a 
computer or computer program. The 
masculine pronouns he and his refer 
to a male or female programmer or 
user.) The player decides to hold or 
discard each of the five cards. After 
the player has made his decision, the 
game displays the cards that replace 
those that the player has discarded 


I f you want to use the most tech- 


Do-While Jones, 324 Traci Lane, 
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by Do-While Jones 


A Draw Poker 
program provides a 


vehicle for presenting 


some features of the 
Defense Department's 
favorite language. 


and evaluates the player’s hand. If the 
player has a winning hand, it dis- 
penses some coins determined by the 
player's bet and the value of his hand. 

You are probably anxious to see the 
final result, so let’s look at the solution 
in Listing One, page 86, before going 
through the step-by-step develop- 
ment. 


Easy to Read 

Listing One contains no comments, 
but because Ada is so easy to read, 
you might be able to understand the 
listing even if you have never seen 
an Ada program before. Ada is de- 
signed to be easy to read so that any 
programmer (not just the program 
author) can quickly (and correctly) 
modify the program. This reduces 
the software support cost—a major 
factor in software life-cycle costs. 

The program begins by opening a 
new deck of cards called the STOCK. It 
then begins a loop that continues as 
long as the player wants to place a 
bet. It asks the player, “How many 
dollars do you want to bet?’ and 
waits for him to enter a WAGER. The 
loop repeats until the WAGER is zero, 
and then the program ends. 

If the player places a bet, the pro- 
gram shuffles the STOCK and deals 
five cards from it to the PLAYERS 
_HAND. The PLAYERS_HAND is dis- 
played, and the player has an oppor- 
tunity to discard as many cards as he 
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likes. The program then deals as 
many cards as are necessary to refill 
the PLAYERS_HAND and displays the 
PLAYERS_HAND again. 

Next, the program computes the 
value of the PLAYERS_HAND. If it con- 
tains a ROYAL_FLUSH, the PAYOFF is 
250 to 1. If the PLAYERS_HAND has a 
STRAIGHT_FLUSH, the PAYOFF is 50 to 
1. The more common hands have 
lower returns, the lowest being TWO 
_PAIR, which has a 2 to 1 PAYOFF. Any 
other hand (including a single pair) 
does not pay the player anything. 

If the PAYOFF is 0, the program 
prints the message “Sorry, you lose.” 
Otherwise, it tells the player what 
winning combination he has and tells 
him how much he has won. (The 
player’s winnings are equal to the 
WAGER multiplied by the PAYOFF.) 

After the program has told the play- 
er how much he has won, it goes back 
to the top of the loop and asks him 
how much he wants to bet this time. 

The Draw Poker program illus- 
trates the concept of top-down pro- 
gramming. The main program was 
written from the design specification 
without much regard for the details 
of how the program will actually do 
what it needs to do. At this point in 
the design, it is not necessary to 
know exactly how the program will 
get the player’s bet, figure out if he 
has a winning hand, and drop the 
right number of silver dollars. The 
program must do these things some- 
how but the details come later. 

Notice that the program reads very 
much like the system design specifi- 
cation does, which makes it easy to 
see if it addresses all the design re- 
quirements—you simply compare 
the program to its specification. 


An Object-Oriented 


Language 
Draw Poker was an easy program to 
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LEARNING ADA 
(Continued from page 42) 


write in Ada because Ada is an ob- 
ject-oriented language. The first com- 
puter languages were equation-ori- 
ented—they were designed to solve 
problems that involved equations. 
Equations of motion, equations for 
solving polynomials, and equations 
for solving matrices are well known, 
but what is the equation of a draw 
poker game? It’s true that people 
have written programs to play card 





games in such equation-oriented lan- 
guages as BASIC and FORTRAN, but 
some mental tricks were required to 
translate the game rules into equa- 
tions and the cards into variables. Ob- 
ject-oriented languages let you solve 
the problem directly without those 
mental tricks—you can let your 
imagination run wild because you 
don’t have to worry about practical 
details right away. 


A Visual Solution 
Here’s how I imagine a card game. I 





Syst att e 


See ecloe 


FoxBASE is much more than a relational 
database management system. Written in C, 
FoxBASE is an extremely portable interpreter! 
compiler. Now you can port from one machine 
or operating system to another without changing 
your applications. And this portability protects 
WMS CULM CC LSM) SOLO LL 
use in future machine and operating system 


environments. 


4 trademark of Fox Softw 
Tan IBM PC NET is a trademark of IBM Corp La 


MULT 


Unsurpassed Program Development 


FoxBASE™ uses a state-of-the-art B+ Tree index 
structure for quicker, more efficient data access. 
A sophisticated virtual storage technique 
becomes an invaluable timesaving device as it 
works to insure that frequently referenced 
MESA CM CCIM MLL LA MLO LC 
form. What's more, FoxBASE provides automatic 
8087/80287 math coprocessor support for 
ultraquick program execution speed—as much 
as six times the speed of dBASE II* 


wii 


dBASE 11 Compatible. 


FoxBASE is both source language—including full 
macro usage—and data file compatible with the 
dBASE II database language. This means your 
COUN Mt |S): We) MCLG SMES 
unchanged. Furthermore, it puts thousands of 
MTT MIE MRO TLC al eee 

sy Nyaa COL an COLTS Yee 


Available Under Multi-user Systems. 


Our multi-user versions of FoxBASE feature 
many additional enhancements. Like automatic 
file-locking and record-locking capabilities. Use 
of termcap, so FoxBASE can run on virtually any 
terminal. And, with some versions, a two billion 
PMO CO MR | cams) [LO 


NCSU can RSLS 

CUT aamesSs eT CMa eka 

IBM-PC NET™ $995. 
NTT RSM CRS ULL 

VTS Oe OES OSTA Ee 
Ram UCU 
Cat Cm i) 


FOXBASE | 
Ox 


FOX SOFTWARE, INC. 


27475 Holiday Lane, Perrysburg, OH 43551 
419-874-0162 





Circle no. 94 on reader service card. 


weak 





see a deck of cards, called the stock. If 
I were imagining a bridge game, I 
would imagine two decks of cards, 
one with a red design on the back and 
the other with a blue design. In Ada I 
would express this concept as fol- 
lows: 


STOCK, RED_DECK, 
BLUE_DECK : Decks; 


This indicates that STOCK, RED_DECK, 
and BLUE_DECK are three different 
objects, but they are all the same type 
of thing. They are all decks of cards, 
so I have defined them to have the 
type Decks. 

Next, I remove the cellophane 
wrapper from a deck of cards and dis- 
card it (along with the jokers). I exam- 
ine the cards and find they consist of 
52 cards of 4 suits and 13 ranks, neatly 
sorted by suit and rank. In Ada, I can 
write a procedure to open a new deck 
of cards using the simple command 


Open_—New\STOCK); 


The dealer picks up the stock and 
begins to shuffle it. 


Shuffle(STOCK); 


The dealer then begins dealing 
cards. He deals a card to you, one to 
me, and finally one to himself: 


Deal_A_Card(YOUR_HAND); 
Deal_A_—Card(MY_HAND); 
Deal_A_Card(DEALERS_HAND); 


Again YOUR_HAND, MY_HAND, and 
DEALERS_HAND are individual ob- 
jects of the same type. In order to dis- 
tinguish each of these objects from 
decks of cards, I define them to be of 
type Hands: 


YOUR_HAND, MY_HAND, 
DEALERS_HAND : Hands; 


Open_New, Shuffle, and Deal_A 
_Card all show actions, so they act as 
verbs. STOCK, RED_DECK, BLUE_DECK, 
YOUR_HAND, MY_HAND, and DEALERS 
_HANDare the objects of those verbs. I 
need to describe those objects to Ada 
before I can tell it how to do the ac- 
tions the verbs require. 


Type Definitions 
What is a deck of cards? It is a collec- 
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tion of individual cards. In Ada, two 


data types—an array or a record— 
can represent a collection of things. 
An array is used to represent a group 
of items of the same type, while a re- 
cord represents items of different 
types. Because of the fact that cards 
are all of the same type, it seems natu- 
ral to use an array to represent a deck 
of cards: 


type Decks is array(1 . . 52) of Cards; 


When you try to use a deck of 
cards, you will find out that you need 
to know a little more about decks of 
cards, so this type definition will 
have to be improved, but let’s let it 
stand as it is for a moment. It says 
that objects that are Decks have the 
structure of an array. This array has 
52 elements, and each element is an 
object that has the type Cards. I must 
therefore define the data type Cards. 
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Class Library 
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EN 


A card has two components—a 
suit and a rank. I can't use a two-ele- 
ment array because suits and ranks 
are not interchangeable, so they 
must be of different types. (The 52 ele- 
ments in Decks are interchangeable, 
which allows me to shuffle a deck.) 
The data structure that holds a collec- 
tion of different type elements is a 
record: 


type Cards is 
record 
SUIT : Suits; 
RANK : Ranks; 
end record; 


his says that an object of type Cards 
onsists of a pair of objects, one ob- . 
ect is called SUIT, and the other is 
alled RANK. The object SUIT is of 
ype Suits, and the RANK object is a 


Ranks type object. 


Now I have to define Suits and 
Ranks: 


type Suits is (CLUBS, DIAMONDS, 
HEARTS, SPADES); 
type Ranks is (TWO, THREE, FOUR, 
FIVE, SIX, SEVEN, EIGHT, NINE, TEN, 
JACK, QUEEN, KING, ACE); 


Suits is called an enumeration type 


because it has a finite number of val- 
ues that can be enumerated. The 





 . 












-— spades are the highest. By listing 
a _ ™ them in the order above, I have given 
ISS RS ‘ AEN St 

S & Ss 3 = “ De ‘ 4 naa 


_ | type Suits. 
| Similarly, if I had said type Ranks is 
(ACE, TWO, ...), then the ACE would 


Defining a type by enumerating val- 
ues not only defines what the per- 


_ their order of relationship. 
Finally, I define Hands. 


type Hands is 
array(1 .. CARDS_IN_HAND) 
—_— | of Cards; 


. ~ < 
MR ~ 


This definition looks a lot like the def- 
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inition of a deck of cards, except I 
have used a named number to ex- 
press the number of cards in a hand. 
The definition of a named number is: 


CARDS_IN_HAND : constant := 5; 


Poker hands have five cards. If I 
were playing bridge, I would substi- 
tute the number 13 for 5 in the defini- 
tion of CARDS_IN_HAND, and then 
everywhere in the program, the cor- 
rect number of cards would be used. 

Maranatha A differs from Ada in 
that only the first ten characters of a 
name are significant. I therefore had 
to use CARDS_IN_HAND and CARDS 
_IN_DECK instead of CARDS_IN_A 
_HAND and CARDS_IN_A—DECK be- 
cause Maranatha A would interpret 
both the latter as CARDS_IN_A. 

When I started writing the Shuffle 
and Deal_A_Card procedures, I 
quickly discovered a problem with 
the types Decks and Hands. When 
dealing from the deck, I needed to 
know how many cards were left in 
the deck. When dealing cards to a 
hand to replace discards, I needed to 
know which cards had been played 
(that is, discarded). I therefore had to 
redefine those data types. This did 
not, however, affect any of the rest of 
the program that I had already writ- 
ten. (If I had been writing this in as- 
sembly language and had reserved 
only 52 bytes for each deck of cards 
and 5 bytes for each hand of cards, I 
would have had to change storage 
size and indexing schemes if I had 
changed the structure of Decks and 
- Hands.) 

The complete definition of a deck 
of cards includes the number of cards 
left in the deck and an array of cards: 


type Decks is 
record 
CARDS_LEFT : integer; 
FAN: Fans(1. .CARDS_IN_DECK); 
end record; 


I chose to call an array of cards a 
fan: 


type Fans is 
arraylinteger range < >) 
of Cards; 


This is a slightly more general array 
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definition than I have used before. 
The first array definition I used was 
is array(1..52), which meant that 
the array index was an integer in the 
range 1 to 52. It may surprise you 
that I have to specify the index as an 
integer. Other languages may take 
this for granted because the index 
can't be anything other than an inte- 
ger. Ada allows you to use any dis- 
crete data type as an index, so it is 
possible to write an array definition 
such as is array(CLUBS.. SPADES). 


as an index because it doesn’t make 
sense to look up the 3.14159th ele- 
ment of an array.) 

The general form of the array defi- 
nition uses the < > symbol, which is 
called a box in Ada. The general form 
allows you to define the array with- 
out forcing you to specify the size 
that it should be. 

The complete definition of the 
hand of cards also has a fan of cards, 
but the fan in a poker hand has 5 ele- 
ments instead of the 52 elements in a 








(You can’t use a continuous data type | fan in a deck. 


Oh, Rapture! 
This is truly the editor | have been longing for. 


- Dr. Joseph Newcomer 
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EEL has all the expressive power of the C programming language. It supports all 
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flexibility! 


Because EEL looks like C, commands are easy to write. You don’t have to learn 
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type Hands is 
record 
PLAYED : 
Status(1. .CARDS_IN_HAND); 
FAN: Fans(1 .. CARDS_IN_HAND); 
end record; 


type Status is 
arraylinteger range < >) 
of boolean; 





A hand of cards can be visualized 
as two five-element arrays. One ar- 
ray (the FAN) can be thought of as 
five slots that can each hold a single 
card. The second array (the PLAYED 
array) can be imagined as five signs 
placed in front of each card in the 
FAN. Each sign can have one of two 
messages written on it—it can say 
‘This card has been played” or ‘This 
card has not been played.” 

Ada also has a predefined data 
type called Boolean, which can have 
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one of two values—TRUE or FALSE. 
This allows us to write simple ex- 
pressions such as if PLAYED = TRUE 
then.... Some languages use 0 and 
—1to represent true and false, so the 
programmer has to remember that 0 
means a card has been played. 


Verb Definitions 

Ada has two kinds of verbs—proce- 
dures and functions. So far, I have 
introduced three procedures 
(Open_New, Shuffle, and Deal_A 
—Card) and no functions. I'll talk 
about functions later. 

All procedures have the same gen- 
eral form as that given in Listing 
Two, page 86. There are five 
keywords (procedure, is, begin, ex- 
ception, and end), followed by infor- 
mation specific to the procedure. For 
convenience I've called the locations 
that contain specific procedure in- 
formation *1 through *5. The 
keyword exception and information 
in locations *2, *4, and *5 are optional. 

Open_New in Listing Three, page 
86, is a good example procedure be- 
cause it uses all five keywords and 
has information in all five locations. 
Open_New creates new decks of 
cards. The main program simply 
says Open_New(RED_DECK );, and the 
procedure creates a new deck of 
cards called RED_DECK. 

Notice that the statement ends 
with a semicolon. Some languages 
wont let a single program statement 
be more than one line long, but Ada 
ignores the carriage-return/line-feed 
sequence, so you can use them freely 
to make the program as readable as 
possible. It does mean, though, that 


you have to tell Ada where the state- 


ment ends by using a semicolon. 
(There is one exception—a carriage 
return marks the end of a comment.) 

A procedure name, and possibly a 
formal parameter, go in the location 
marked *1. Here formal is used in the 
sense of showing the form rather 
than meaning prim and proper. 

In Open—_New, for example, 
Open_New is the name of the proce- 
dure, and the object DECK is a formal 


| parameter that stands for any object 
_ of type Decks. The word out tells Ada 
_ that DECK is an output from the 


Open_New procedure and should 
not be erroneously used as an input. 


_ In other words, Open_New considers 
| DECK to be a write-only variable. 
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Location *2 is used to create some 
temporary objects that will cease to 
exist when the procedure is finished. 
Open_New creates two such ob- 
jects—the variable i is an integer used 
as an index, and CARD is a blank piece 
of cardboard on which Open_New 
prints a rank and a suit and then puts 
them in the DECK. You can give a vari- 
able an initial value when you create 
it. I gave i the initial value 0 but did 


not give CARD an initial value. 

The work gets done in the area 
marked with the third star. You've 
probably seen FOR .. . NEXT loops be- 
fore but not ones like those in 
Open_New. Usually FOR... NEXT 
loops are restricted to integers or, 
perhaps, real numbers. Ada can use 
any discrete variable as a loop index. 
The variable S is given the values 
CLUBS, then DIAMONDS, then 
HEARTS, and finally SPADES, as the 
outer loop is executed four times. 
Similarly, the variable R takes on the 
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values TWO through ACE. 

Remember that objects of type 
Cards have two components—a SUIT 
of type Suits and a RANK of type 
Ranks. The compound name 
CARD.SUIT is “selected component’ 
notation that means the SUIT object 
(or component) in the CARD object. 

Each of the four times the program 
works through the outer (Suits) loop, it 
works through the inner (Ranks) loop 
13 times. The index counter should be 
4x13 when all the looping is done, so 
the CARDS_LEFT component of DECK 
should receive the value 52. 

The last statement in the *3 area is 
an error check. It is really a pair of 
statements as far as Ada is con- 
cerned. (Remember, a semicolon is 
an end-of-statement marker.) I like to 
put simple if statements, such as this 
one, all on one line because it is easier 
to read. Because Ada doesn’t care 
about carriage returns, you can put 
multiple statements on one line if 
you wish. 

The /= sign means not equal. Pas- 
cal programmers would probably 
prefer to use < > for that purpose, 
but the designers of Ada had already 
used that symbol for unconstrained 
arrays and wanted to have a separate 
symbol for inequality. It is an easy er- 
ror for compilers to catch, so all the 
Ada compilers I have seen will tell 
you exactly what's wrong if you use 
< > by mistake. 

The purpose of the if statement is to 
raise the exception DECK_ERROR if 
the final value of the index (that is, the 
number of cards created) does not 
equal CARDS_IN_DECK. An exception 
is simply an error flag. If an error is 
detected, the statements in area *4 are 
executed. Normally the exception 
handler is skipped, and program 
jumps down to the end statement. 
The end statement repeats the proce- 
dure name at *5 so Ada can check to 
see if you accidentally left out an end 
if or end loop statement somewhere. 
The name in area *5 must match the 
name in *1 exactly, except that upper- 
case and lowercase differences are ig- 

nored. (OPen_New matches Open 
_ _new, for example.) 





_ Packaging General-Purpose 
| Routines 

Listing Four is an Ada construct 
called a package. A package is a col- 
| lection of data types and objects (con- 
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stants and variables) that are specific 
instances of those data types and op- 
erations that manipulate those ob- 
jects. The package has a name 
(PLAYING_CARDS) and can be used by 
other programs that ask for it by 
name. It is divided into two parts. 
The package specification (Listing 
Four A, page 86) explains what the 
objects and operations are but does 


i's 3AM! 


Do you know where your bugs are 7 


not give all the intricate details about 
the objects nor explain how the oper- 
ations work. The second part (Listing 
Four B, page 88) is the package body, 
and it contains all those details. 
There are several reasons for 
breaking the package in two. Most of 
them are because Ada was designed 
for large programs that require more 
than three programmers. Two or 
three programmers can usually 
work together easily, but when a 
program turns into a committee pro- 
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ject, it is harder for individual pro- 
grammers to keep track of the whole 
program. Ada’s package specifica- 
tion allows work to be partitioned 
and assigned logically. In this exam- 
ple, it tells one programmer that he 
must write a procedure called Open 
_New, which creates an object of the 
type Decks, and it tells the second 
programmer that he can assume the 
existence of a procedure called Open 
—_New that will create decks of cards 
for him. The second programmer 
therefore does not need to wait for 
the first programmer to write Open 
_New before he can begin his part of 
the job. 

Another advantage of Ada’s pack- 
age specification is that if, for exam- 
ple, I discover a better way to shuffle 
cards, I can change the implementa- 
tion of Shuffle in the package body 
without affecting any other part of 
the program. I can also be sure that 
no other programmer has made use 
of some special quirk in my previous 
method because no one knew how I 
did it before. 

From a software vendor's point of 
view, the advantage in separating 
the body from the specification is 
that the body can be supplied in ob- 
ject code. The purchaser of the pack- 
age then does not know how the 
package works, so he can't copy the 
design. If he wants to modify it, he 
has to pay the vendor to change it. 


Nested Packages 

The first two statements in the pack- 
age body of PLAYING_CARDS (file 
CARDB.ADA in Listing Two) are: 


with CON_IO; use CON_IO; 


CON_1IO is a collection of console in- 
put and output routines. I could have 
used a common Ada package called 
TEXT_IO, but I chose not to. Mara- 
natha A doesn’t check to see which 
package routines are needed, so it 
loads all of the TEXT_IO package rou- 
tines whether it needs them or not. I 
made a copy of TEXT_IO, deleted all 
the disk interface routines, and re- 
named it CON_JO, to reduce the size 
of the object code generated. 
TEXT_JO is not the only I/O package 
allowed in Ada, it is just one that is 
guaranteed to make your programs 
portable. (TEXT_IO is the equivalent of 
CP/M BIOS—it provides a universal 
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Ruins on any MSDOS or PCDOS Systems: Not copy-protected, TransLISP is available in just 
about any 3’’, 5’’ or 8’’ format. PC compatibles can run TransLISP with no installation pro- 
cedure. 192K memory and | floppy drive are the minimums required. 


ONLY For Beginners and Experienced Programmers 


$75 » e 335- D Washington St. 
pull chum ito: GOWION —Norweit, Mass. 02061 
satisfied during ystems ™ 


617-659-1571 
first 30 days. 


() Natural Language, Expert Systems and 
Mailing List: 


Natural Language concepts are illustrated 
by a phone number retrieval program. 
Choose the best word processing program 
for you with the Expert System. File handl- 
ing and typical data processing work are 
demonstrated by a Mailing List program. 


800-821-2492 
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Number One 
in Performance 





IBM/AT/XT/PC- 8mz 
No Wait States 


FEATURES 


© 64K-256K RAM 
e 2K-8K EPROM/ Static Ram 
e 2 Serial Ports 

Async/Sync/Bisync Communications 
e Real Time Clock 
e Memory-mapped Dual-port BUS 
e On-board/Remote Reset NMi capability 
e Up To 32 Boards Per AT/XT/PC 
e Can Operate As Standalone Processor 
e Less Than Full Size Board 

(will fit other compatables.) 


SOFTWARE 


e ZP/M tm CP/M Emulation Software 
(Supports Most CP/M Software) 

e Multiuser Capability If Used As A 
Slave Processor 


IBM 15 a regis ader al Business Machi 
CPM/ 80's seregnieaitaden ie OM Dvpilal Bese rch Co mp 


TLM Systems 


West: 4704 W. Jennifer, Suite 105, Fresno, CA 93711, 209/276-2345 
East: 67 Grandview, Pleasantville, e oe. 914/747-1450 


Distributor: Telemarketing Services. In 
1897 Garden Ave., Eugene, OR 97403, 503/345-7395 
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LEARNING ADA 
(Continued from page 52) 


I/O interface to a specific hardware 
configuration.) I was not worried 
about portability because the final 
product will need special I/O routines 
that input and output silver dollars, 
which can’t possibly be portable be- 
cause of hardware _ limitations. 
CON_JO is just a temporary I/O pack- 
age that lets me substitute a CRT for a 


DISCOVER THE LANGUAG E 


OF ARTIFICIAL 
INTELLIGENCE ¢ 


PROLOG V 


Interpreter for MS-DOS/PC-DOS 


At last! A Prolog with enough muscle to handle 
real-world applications for UNDER $100! Discover 
why Japan has chosen Prolog as the vehicle for their 
“Fifth Generation Machine” project to design 


intelligent computers. 


CHOOSE FROM TWO GREAT VERSIONS: 


PROLOG V-Plus| PROLOG V 
$GQ95 


0 70 Predefined Predicates 

0 Small Memory Model 

0 Integer Arithmetic 

0 122-Page User's Manual 
and Tutoria 


$9995 


© More Than 100 Predefined 
Predicates 

© Large Memory Model (to 640K) 

0 Floating Point Arithmetic 

0 150-Page User's Manual and 
Tutorial plus Advanced 
Programming Documentation 

© Co-Resident Program Editor 

© Calls to Co-Resident Programs 

0 Text and Graphic Screen 
Manipulation 


STANDARD FEATURES ON BOTH: 


0 Clocksin & Mellish-Standard 
Edinburgh Syntax. 

0 Extensive Interactive Debugging 
Facilities 


THE CHOICE OF UNIVERSITIES 


Generous university site licenses and an excellent teaching tutorial and 
reference guide have made PROLOG V the choice of universities nationwide. 


Call for details. 


0 Dynamic Memory Management 
(garbage collection) 

© Custom-Designed Binder 
and Slipcase 


coin detector and a dollar dispenser. 

Maranatha A does not support ge- 
neric routines, so CON_JO includes an 
instantiated INTEGER_IO package 
(rather than the generic package Ada 
would use). 

The with clause tells Ada that a 
package named CON_JO is stored in a 
file on the system disk. Ada should 
read this file to find out what data 
types, procedures, and functions 
have been defined by that package. 
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a 30 days. If 
not fully satisfied return 
with disk still sealed for 
full refund. 


r mi PHONE ORDERS: 1-800-621-0852 EXT 468 mam 


: C) PAYMENT ENCLOSED $ 
CA residents add 6% sales tax 


C) CHARGE MY: C) MasterCard QO) Visa 
| No. Exp. Date 
e Signature. 
Mr./Mrs./Ms. 
(please print full name) 
i Address 
City / State /Zip 

















PROLOG V.Plus $99.95 
PROLOG V 9.95 sf 


UPGRADE ONLY 40. 00 
Return factory diskette and 
$30 plus $10 Handling , 


ly 


SHIPPING: 
sscous fl 
‘ nada 
10.00 ee 4 CHALC FI x WY 
awaii Air 

20.00 Overseas Air SOFT WARE 
COD Orders Not Accepted 5580 LA JOLLA BLVD. 
15 day check clearance SUITE 126 D 


LA JOLLA, CA 
92037 
(619) 483-8513 
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The use clause tells Ada that she can 
use these items as necessary to satisfy 
the program requirements. 

CON_IO contains a procedure to 
output a character string. The form 
of the procedure is: 


put(‘‘A text string.”’) 


Because Ada has been told to compile 
the Draw Poker program in the con- 
text of the CON_IO package, she 
knows the definition of put so I do 
not need to define it. 


Mimicking Other Languages 
You may have noticed that the pack- 
age body of the PLAYING_CARDS 
package includes the phrase with APL; 
use APL;. The computer language APL 
is different from most other lan- 
guages because it has a function 
called Deal that is useful in programs 
that play cards. The Deal function re- 
turns a random sequence of numbers 
without repeating any number, 
which makes shuffling cards easy. 
Because I have already written a 
package to simulate some APL func- 
tions (the pertinent part is given in 
Listing Five, page 90), all I have to do is 
tell Ada that the PLAYING_CARDS 
package needs to be compiled with 
APL, so all APL data types, procedures, 
and functions are available. 

Unlike Maranatha A, true Ada 
would allow me to omit the phrase 
use APL;. Instead, I could use dot nota- 
tion to tell it which package to use— 
that is, could write a statement such 
as 


SEQUENCE : = 
APL.Deal(CARDS_IN_DECK, 
CARDS_IN_DECK); 


This means that the variable SE- 
QUENCE gets a value computed by a 
function in the APL package called 
Deal. The sequence (the first CARDS 
—IN_DECK in the argument list) con- 
tains 52 numbers in the range 1 to 52 


(the second CARDS_IN_DECK in the 


argument list). 

Ada knows where to find the Deal 
function, but a human reading the 
program might not. I wanted to use 
the dot notation to help remind me 
that Deal is an APL function. Mara- 
natha A does not allow the dot nota- 
tion, so I had to use a use clause in- 
stead. 
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Nested Functions 

In the Draw Poker program, I need to 
know if two (or more) cards have the 
same rank to see if I have two-, three-, 
or four-of-a-kind. If I couldn’t nest 
functions (that is, if I could do only 
one function at a time), I would have 
to use several statements to find out if 
two cards have the same rank. For 
example, if I wanted to find out if 
cards 3 and 4 in MY_HAND have the 
same rank, I would have to do some- 
thing like 


FIRST_CARD := 
Card_Number(3, MY_HAND); 
FIRST_RANK := 
Rank_of(FIRST_CARD); 
SECOND_CARD : = 
Card_Number(4, MY_HAND); 
SECOND_RANK := 
Rank_of(SECOND_CARD); 

if FIRST_RANK = 
SECOND_RANK then... 


It is clearer to put it all in one state- 
ment, though: 


if Rank_of(Card_Number‘3, 
MY_HAND) = Rank_of 
(Card_Number(4, MY_HAND) 
then... 


The function Card_Number pulls 
card 3 (or 4) out of MY_HAND, and 
then the Rank_of function reads the 
rank of that card. 


The Whole Program 

The whole program is given in List- 
ing Six, page 91. It begins with three 
comment lines that give the file 
name of the program, the date when 
it was written (or revised), and the 
author’s name. The context clauses 
tell Ada that the Draw_Poker proce- 
dure should be compiled in the con- 
text of . - the” ~ CON-JO~ and 
PLAYING_CARDS packages, so all the 
procedures, functions, and data 
types in those packages are defined 
and usable. 

Draw_Poker requires a special 
data type, called Values. The value of 
a poker hand can be NOTHING up to 
ROYAL_FLUSH, so this type definition 
enumerates all the possible values in 
ascending order of importance. 

Draw_Poker also requires five 
variables (objects)—a STOCK; one 
PLAYERS_HAND; a WAGER and a PAY- 
OFF, which are both integers; and a 
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VALUE, which can have any of the 
values NOTHING through ROYAL 
—FLUSH. 

Next, the procedure put is defined 
for what seems to be the millionth 
time. Procedures that have more 
than one meaning are called over- 
loaded procedures. CON_IO has a put 
for individual characters, a put for 
character strings, a put for integers, a 
put for floating-point numbers, and a 
put for Boolean values. Listing Four 
contains a put for suits, a put for 
ranks, a put for cards, and a put for 
hands. Finally, I now have a put for 
values of poker hands. 

If Ada wasn't smart enough to fig- 
ure out which put to use, I would 
have to make up separate names to 
output integers, floating-point num- 
bers, characters, strings, Booleans, 
suits, ranks, cards, hands, and values. 
Then I would have to remember 
which name I used for each data 
type. Because Ada allows me to reuse 
names, though, all I have to remem- 





ber is that put outputs anything, and 
Ada has to remember how to output 
each object. 

If an external package name is giv- 
en (for example, APL.Deal), Ada will 
look only in that package for the pro- 
cedure. If no external package name 
is given, she will look for a definition 
of the procedure in the declarative 
region (the area marked *2 in Listing 
Two). 

If Ada can't find the procedure in 
its list of procedures currently de- 
fined by the program, and there is a 
use Clause, she will look for the pro- 
cedure in the ‘“‘used package.’’ If 
there are two used packages and 
both have a procedure with the cor- 
rect name and formal parameters, 
then Ada won't know which one to 
use. She will explain her dilemma 
during the compilation of the pro- 
gram (rather than just picking one at 
random), and you will have to pro- 
vide an external package name to let 
her know which procedure to use. 


Relocatable Z80 Macro Assembler 


e Only $49.95 plus shipping. 

e 8080 to Z80 Source Code Converter. 
e Generates Microsoft compatible REL 
files or INTEL compatible hex files. 

e Compatible with Digital Research 
macro assemblers MAC & RMAC. 

e Generates Digital Research 
compatible SYM files. 

@ Conditional assembly. 


e Phase/dephase. 


e Cross-reference generation. 
@ Full Zilog mnemonics. 
e INCLUDE and MACLIB FILES. 


e Separate data, program, common, 
and absolute program spaces. 

e Supports Hitachi HD64180. 

e Z80 Linker and Library Manager for 
Microsoft compatible REL files 
available as an add-on to Assembler. 
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LEARNING ADA 
(Continued from page 55) 


Separate Compilation 

The Draw_Poker procedure needs tc 
compute the value of a hand. I chose 
to compile this separately, so I wrote 
a “body stub” where the function 
would normally go. The body stub is: 


function Value_of(HAND : Hands) 
return Values is separate; 


This tells Ada that a function called Va- 
lue_of operates on a HAND and re- 
turns an object of type Values (that is, 
NOTHING through ROYAL_FLUSH) and 
that this function will be compiled 
separately. (See Listing Seven, page 91.) 
Compiling Value_of separately has 
three advantages. First, it divides the 
labor effectively. Sometimes adding 
more programmers to a project 
slows progress because each pro- 
grammer has to know how another 
programmer has written part of the 
program before starting his own 
part. Separate compilation defines 
the interfaces between program 
modules clearly and allows all the 
programmers to work in parallel, 
thus shortening development time. 
Second, separate compilation 
makes it easier to test procedures and 
functions. If the Value_of function 
were an inseparable part of the 
Draw_Poker procedure, think how 
long it would take you to find out if 
Value_of recognizes when a hand 
contains a ROYAL_FLUSH. Because Va- 
lue_of is compiled separately, 
though, you can write a program 
that tests Value_of by asking what 
five cards are in the hand and then 
calling Value_of to see if it figures out 
the value of the hand correctly. 
Third, separate compilation makes 
it easy to fix mistakes. As a matter of 
fact, Value_of does have a mistake. I 
don't play poker, so it wasn’t until I 
showed the program in class that I 
found out aces can be high or low. 
Value_of doesn’t realize that TWO, 
THREE, FOUR, FIVE, ACE is really the 
same as ONE, TWO, THREE, FOUR, FIVE 
and should be considered to be a 
STRAIGHT. Because Value_of is sepa- 
rate from Draw_Poker, it was easily 
fixed, recompiled, and relinked to 
the other modules. (See Listing Eight, 
page 92, for corrections.) 
Separate compilation and inclusion 
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of packages makes it difficult to com- 
pare Ada compiler speeds with other 
language compilers. It’s fair to com- 
pare one Ada compiler to another on 
the basis of number of lines compiled 
per minute, but it isn’t fair to compare 
Ada lines per minute to Pascal lines 
per minute (for example) because a 
Pascal compiler has to compile the 
whole program every time a change is 
made, while Ada just has to compile 
the part that has been changed. For a 
very long Ada program that has been 
properly divided into many modules, 
it might make more sense to measure 
the linker speed than the compiler 
speed. 


The Final Product 

Remember that this case study in- 
volved making a video Draw Poker 
game that would be sold for profit. 
The program described here has no 
graphics, doesn’t accept coins, and 
the user interface is through a termi- 
nal. The product, as it now stands, 
isn't commercially viable. 

If I were going to market the prod- 
uct, I would get a mechanical engi- 
neer to design a coin detector that 
could reject slugs and count the num- 
ber of genuine silver dollars entered. 
Meanwhile, I would write another 
procedure get so that get(WAGER); 
would accept input from the coin de- 
tector. I would put this procedure in 
a package called HARDWARE_1IO. I 
would then write a simple program 
based on this sequence of statements: 


loop 
HARDWARE_IO.get(WAGER, 
CON_IO.put(WAGER); 

end loop; 


I could then drop coins in the slot and 
see if the CRT screen displayed the 
correct number of dollars. 

The mechanical engineer would 
also design a dollar dispenser, which 
would require a HARDWARE_JO.put 
routine. When the dollar dispenser 
and put procedure were finished, I 
could test them using a program con- 
taining these statements: 


loop 
CON_IO.put("How much should I 
pay?”); 
CON_IO.get(WINNINGS); 


HARDWARE_IO.put(WINNINGS); 
end loop; 














Simultaneously, an electrical engi- 
neer would work on a graphics in- 
terface that could display playing 
cards. It would need a HARDWARE 
_IO.put procedure for Cards, which 
would replace the PLAYING_ 
CARD.put procedure. 


From Host to Target 

I think you can see how Ada’s modu- 
lar nature makes it easy to put a sys- 
tem together. After you have tested 
each interface, you can integrate it 
into the Draw Poker program simply 
by replacing the CON_IO procedure 
with the corresponding HARDWARE 
_IO procedure. 

Imagine how difficult it would be 
to get a working system if the Draw 
Poker program (including HARDWARE 
_IO, PLAYING_CARDS, APL, and Val- 
ue_of ) were one long spaghetti-code 
program written by a team of pro- 
grammers. Someone would always 
be waiting for someone else to finish 
something, and the program 
couldn't be tested until all the hard- 
ware was finished. 

Ada’s modular form lets you devel- 
op embedded system software on a 
host computer (even a micro) using 
simulated I/O drivers. You can devel- 
op test procedures using these simu- 
lated drivers, which you can then re- 
place by real drivers in any order. 
You can test the real drivers quickly 
using the methods you used to test 
the simulated drivers. Integration 
should be a trivial task. 

In the ideal case (that is, with un- 
limited manpower and resources), 
the time taken to complete the pro- 
ject is not much longer than the time 
taken to complete the longest task. 
The concept of a critical path (where 
one task cannot begin until another 
is finished) disappears. 


Micro Limitations 

Maranatha A is not a true Ada com- 
piler. It lacks overloaded operators, 
generics, and tasking, so you can't 
use it to develop programs that need 
these features. CP/M-80 systems typi- 
cally have about 48K to 57K of usable 
program memory, so that limits the 
size of the program you can actually 
run on the micro host. Remember 
that Ada’s modular form lets you 
compile and test modules separately, 
so you could test all the pieces of a 
huge program even if you couldn't 
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EARTH HAS IT FOR 
LESS THAN $1,000! 


YOUR SEARCH IS OVER!! EARTH 
COMPUTERS’ exciting new high- 
speed, 80286 accelerator card, 
TurboACCEL-286™, is just what you’ve 
been looking for. The TurboACCEL- 
286 will boost your PC performance up 
to Five times...its completely software 
transparent...and its only $995! 
TurboACCEL-286 will fuction with 
most operating systems and application 
programs (unlike other so-called 
accelerator boards). 


The TurboACCEL-286 features a 
high-speed, 8MHz, 80286 processor, 
512Kbytes of RAM (expandable to 
1 Mbytes), a switch for 8088 operation, 
and facilities for an 80287 math co- 
processor. it occupies one expansion 
slot, is completely compatible with 
most PCs and is software transparent. 
End your search for AT performance. 
Order the TurboACCEL-286 today! 
Call or write: 





P.O. Box 8067, Fountain Valley, CA 92728 
TELEX: 910 997 6120 EARTH FV 


(714) 964-5784 


Ask about EARTH COMPUTERS’ other 
fine PC and S-100 compatible products. 
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Make for MS*"- DOS 


Get the full range of features C pro- 
grammers working in UNIX™ have 
come to expect from their Lint and 
Make utilities. With Pre-C™ you can 
detect structural errors in C programs 
five times faster than you can with a 
debugger. Find usage errors almost 
impossible to detect with a compiler. 
Cross-check multiple source files and 
parameters passed to functions. Un- 
cover interface bugs that are difficult 
to isolate. All in a single pass. Capa- 
bilities no C compiler, with or without 
program analyzing utilities, can offer. 
Pre-C outlints Lint, since you can 
handle analyses incrementally. 


Pre-C’s flexible library approach lets 
you maintain continuity across all 
programs in your shop, whether you 
use Pre-C’s pre-built libraries, func- 
tions you already have, or some you 
might want to buy. 


Plus, you’re not limited to one partic- 
ular library. Pre-C keeps track of all 
the libraries you’re using to make 
sure that code correctly calls them. 


With Pmaker™ you can update and 
track every module in your program. 
When you make a change in any 
source or include file, all you do 


is run Pmaker. It will recompile 
changed modules and relink your 
program. With any compiler or linker 
you choose. Pmaker can update an 
object module library when one or 
several of the object modules are 
changed. You can use Pmaker to 
handle any task when a change 
requires several steps. 


pmaker 





Pre-C by Phoenix. $395. Pmaker 
by Phoenix. $195. 

Call (1) 800-344-7200. 
In Massachusetts (617) 762-5030. 

Or, write: Phoenix Computer Prod- 
ucts, Corp. , 320 Norwood Park South, 
Norwood, MA 02062. 


PROGRAMMERS’ PFANTASIES™ BY PHOENIX 


Programmers’ Pfantasies, Pre-C, and Pmaker are trademarks of Phoenix Computer Products Corporat 
MS is a trademark of Microsoft Corporation. UNIX is a trademark of AT&T Bell Laboratories. 
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run the whole program on the host. 

I didn't feel hampered by Mara- 
natha A. When I was beta-testing it, I 
didn’t bother to read the whole 
Maranatha A Language Reference 
Manual (LRM). I read just the Ada 
LRM and assumed Maranatha A 
would do what Ada does. I referred 
to the Maranatha manual only when 
Maranatha A wouldn't do something 
that Ada should do. 

Maranatha A did not then have 
overloaded operators (it may have 
them by the time you read this), so I 
couldn't use the plus sign to .add 
cards to a hand. I would have liked to 
have been able to write 


PLAYERS_HAND := 
PLAYERS_HAND 
+ Top—of(STOCK); 


but as I couldn't, I used 


Deal_A_Card(PLAYERS_HAND, 
STOCK); 


instead. 

I wanted to use dot notation to em- 
phasize that the Deal function is in 
the APL package, but I suppose that I 
could have just as easily used a com- 
ment to do that. 

Maranatha A doesn't have an IM- 
AGE attribute, which made the put 
procedures for Suits and Ranks more 
complicated than they need be. For 
enumeration types with 4 to 13 val- 
ues, it isn’t too bad to have to use a 
case statement as I did, but if the enu- 
meration type had 50 or 100 values, it 
could be annoying to have to output 
values in that way. 

The extraneous semicolon in sepa- 
rate (Draw_Poker ); confused me for 
a while, but I think that error has 
been removed from the version that 
Supersoft is now selling. The excep- 
tion handler also contained a bug, 
which forced me to include the 





NETWORKS ane CUORE 
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Specify diskette format: 
e 5%” MS-DOS 

e8” CP/M 

@ 3'A" Mac 

e8” RT-1| 


For VISA, MC and COD orders 
call (314) 445-6833 

FairCom 

2606 Johnson Drive 

Columbia, MO 65203 


© 1985 FairCom 


The following are trademarks: c-tree and the circular disk logo—FairCom; MS—Microsoft Inc.: 
CP/M and Access Manager—Digital Research Inc.; Unix—AT&T: Apple—Apple Computer Co. 
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guard in the expression: 


when DECK_ERROR | 
CONSTRAINT_ERROR = > 
raise DECK_ERROR; 


If not for the bug I could simply have 
written raise DECK_ERROR;. I think 
that bug has also been fixed in Super- 
soft’s version. 

It is a minor inconvenience that 
only the first ten characters of a 
name are significant. I lived for years 
with a FORTRAN language that per- 
mitted only six-character names, and 
it was picky about what the first let- 
ter was. 

Now that I have a real Ada compiler 
with generics and tasking, I realize 
how valuable they are, but when I 
wrote the Draw Poker program I 
didn't know what I was missing, so it 
didn't bother me much. The Draw 
Poker program didn’t need them, any- 
way. 

The worst problem with my beta- 
test version is that a missing semi- 
colon causes the compiler to crash. 
This was a real nuisance at first be- 
cause I did not know any Pascal be- 
fore I learned Ada, so I wasn’t in the 
habit of ending statements with semi- 
colons, and it crashed often. 

The built-in random-number gen- 
erator is not standard with Ada, and 
it was a handy function to have for 
Draw Poker. If I ever want to run this 
program on a validated Ada compil- 
er, I will have to write a random- 
number generator to replace RND in 
the APL package. 

Using a micro to develop Ada pro- 
grams isn't ideal. It would be better 
to use a validated Ada compiler on a 
mainframe computer, but if you 
don't have $30,000 to spend on a com- 
piler (and a VAX-780 to run it on), then 
Maranatha A is a good alternative. 


DDJ 


(Listings begin on page 76) 
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NEW LANGUAGE BREAKS OLD RULES. 
GIVES PROGRAMMERS POWER, SPEED AND SIMPLICITY. 


Try this remarkable language, PROMAL; for 30 Days AT NO RISK and... 





We think you'll be thrilled with this 
breakthrough system when you discover 
its power, ease of use, and dazzling per- 
formance on your IBM PC, Apple Ile/IIc, 
or Commodore 64. But we don’t 
expect you to accept our claims for 
PROMAL without proof, so we invite 
you to explore the power of PROMAL on 
your own during our 30-day trial period. 


Broken Rules 
Now that PROMAL 2.0 has broken 
the rules, a structured language doesn't 
have to be slow, unwieldy and difficult to 
use. PROMAL is fast, elegant, and simple. 


What Is PROMAL? 
PROMAL stands for PROgrammer’s 
Micro Application Language. But 
PROMAL is more than a high-level lan- 


guage, it’s a total structured program- 
ming development system with a fast, 
one-pass compiler, a versatile full-screen 
editor, plus an integrated machine- 


language subroutine library. And for 
APPLE and Commodore systems it 


includes a DOS-like system “Executive.” 


Better By Design 
PROMAL was designed from “scratch” 
for optimum performance and ease of 
use on microcomputers. It has a simpli- 
fied syntax with no awkward terminators 


PROMAL 2.0 FEATURES 
COMPILED LANGUAGE 


¢ Structured indentation syntax 
* No line numbers or terminators 
¢ Long variable names (31 characters) 
¢ Global, Local, & Argument variables 
* Byte, Word, Integer & Real data types 
¢ Decimal or Hex number types 
¢ Functions & Procedures with passed arguments 
¢ Predefined DATA of any type 
¢ Multi-Dimensional Arrays (any type) 
¢ Strings & pointers 
* Control Statements: IF IF-ELSE, WHILE, FOR, 
CHOOSE, REPEAT- UNTIL, BREAK, NEXT, 
IN CLUDE, ESCAPE, REFUGE 
* Bit-operators, shifts, type casts 
¢ Variables at any memory location 
¢ Simple Machine Language interface 
* Recursion supported 
¢ Program chaining and overlays (IMPORT/EXPORT) 
* Separate compilation of modules 
¢ Load and run relocatable M/L programs 
* Compile errors trapped for Editor 


EXECUTIVE (APPLE II & C64 Only) 
¢ Command driven, with line editing 
* Multiple user programs in memory at once 
* Function key definitions 
* Progam abort and pause 
* Prior command recall 
* VO Re-direction & batch jobs 
* “DOS”-like commands: COPY, RENAME, DELETE, 
display FILES, TYPE, HELP etc. 
¢ Memory MAP SET, and display commands 
EDITOR 
¢ Full-screen, cursor driven 
¢ Function key controlled 
¢ Line insert, delete, search 








































¢ String search and replace 
* Block copy, move, delete & file read/write operations 
¢ Auto indent, undent support 


LIBRARY 
¢ 50 Resident Machine-language commands 
¢ Call by name with ee 
¢ String handling (9 rou 
* Re- directable V/O (ST DIN & STDOUT) 
¢ Formatted numeric output 
* Decimal & Hexadecimal I/O 
* Block fill/move/read/write 
* Cursor control & line editing 
* Data type conversion 
¢ Random number function 
¢ Real function support (in PROMAL): 
ABS, AY COS, EXP LOG, LOG10, POWER, SIN, 
SQRT, T: 
* Modem vies support & much more 
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_ Order Form for PROMAL 30-Day Trial! 


like “;” or “}” and indentation is part 
of the syntax, so structuring your code 
is natural and easy. Just compare 
PROMAL with BASIC in this example: 


Equivalent Program Segments 


REPEAT 
ne 5,24, “Add/Chg/Quit?” 
IF Reply = 
— Item 
ahaha @ New_ltems + 1 
ELSE 1F Reply = ‘C’ 
CHANGE Item 


UNTIL Reply = ‘Q' 11910 REM————BASIC 


11920 CL=5:LN = 24:PR$ = Baars /Quit?” 
11925 GOSUB 9490:REM oT Lag 
11930 IF RP$<>'A’ THEN 1 
11940 I9 = IT:;GOSUB 10100: HEM ADD 
:GOTO 1 a 
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11960 I9 = IT:GOSUB 6050: REM CHG 
11970 IF RP$<>"Q" THEN 11920 


PROMAL is readable and understand- 
able. You see the logic from the structure. 
And PROMAL lets you call procedures 
by name—so no more GOSUBs. But 
there’s more. 


Slick Editor 


Editing your source is a snap with the 
specially-designed and integrated full- 
screen Editor-—it not only helps you 
structure your program, it even finds 
compilation errors — automatically. 


Quick Compiler 

The compiler is a lightning-fast, 
one-pass, recursive descent design. On 
the IBM PC it crunches source to object 
at 2000 lines per minute, and it’s 
equally impressive on the Apple and 
C64. And your PROMAL source code is 
portable from machine to machine. 


That means your source can be used on 
all PROMAL target machines. 


Run-Time Speed Demon 

PROMAL blows away Apple II and 
C64 languages from BASIC and PASCAL 
to FORTH. (Send $3 for a copy of our 
full benchmark report.) It’s 2000% 
faster than BASIC. And on a normal 
IBM PC, the native 8088 code from 
PROMAL beat Turbo Pascal 3.0 by 
10% on the standard sieve benchmark! 


DOS For Those Without 

If you don't have a real “DOS,” then 
PROMAL gives you a true operating 
system environment with the built-in 
operating system Executive. (See box.) 


stem 3 (check one) 
MBN EC /100% compatibles () APPLE IIc/Ile 


OJ COMMODORE 64/128 


Please RUSH me 
() PROMAL Developer s System—Compiler, Editor, 
Library, Demo disk, 280- “page manual, (Plus Execu- 
tive for Apple and dC- 64) and stand- alone program 
Eoctanon Qo royalties). 
99.9 00 Shipping & Handling 
nd- Users oe for A ple IIc/Ile and Commodore 
64/128 -all features of Developer’s Version except 
stand-alone program aerated (Executive needed 
for program execution 
$49.9 + 5.00 eee & Handling 
en a hee (Apple/C64 aly) 20 routines 
for hi-res graphics: windows, c ipping, text-on- 
aphics using scaled, rotated, user- efined fonts. 
$29.95 5 + 2.50 Shipping & Handling 
MEMBER 
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Outside Opinion 


Naturally we’re enthusiastic about 
PROMAL, but here’s what other pro- 
grammers are Saying: 


“Excellent... an ideal development 
system. ... Well done indeed!” 
M..T..V. 
Naperville, Ill. 
“Tam...soamazed by PROMAL...I 


cannot believe the high degree of excel- 
lence of this entire package.” 

ad 

Ridgeway, New York 

“T don't know that I’ve ever seen a 

[system] as thoughtfully designed and as 
skillfully executed as PROMAL. Its 
logic and ease of programming are truly 
remarkable. Its speed of execution is 


phenomenal... congratulations,” 
E. CLR. 
Alexandna, VA 
Safety In Numbers 


SMA, Inc. has been satisfying cus- 
tomers (over 100,000) since 1982 with 
innovative microcomputer products. Now 
you can join our thousands of satisfied 
PROMAL users, by trying it today. 


Try It For 30 Days On Us 
Send us some bucks and we'll send 
you PROMAL on trial for 30 days. If for 
any reason whatsoever you are not 

satisfied, just send it back for a 
quick refund of your purchase price. No 
questions asked. No risk. 


How To Order. 

Call TOLL-FREE to order with your 
credit card or use the handy order form 
below to send in your check or money- 
order for your 30-day trial. Don't wait, 


you deserve the power of PROMAL today! 


1-800-762-7874 


In NC: 919-878-3600 





PROMAL runs on IBM PC/PCjr with 192K, 

Commodore 64/128, APPLE IIc, or APPLE Ile 
with 80 Col. 128K Card, 
and is NOT COPY- 
PROTECTED. 











Please charge my 
bet Visa — 
C1] MasterCard 

(J American Express 


C1 My check is enclosed 
Card Number 





Signature Exp. Date 





Name 
Address 
City 
State 


NC residents add 412% sales tax. 
Foreign orders add $20.00 additional shipping. 











Pc ee 


PROMAL is a trademark of Systems Management Associates, Inc. Turbo Pascal is a trademark of Borland International, Inc. 


Circle no. 104 on reader service card. 
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Overview oi the 





repository of Ada programs, 
A software components, 
educational material, and 


Ada-oriented information has been 
established on the SIMTEL20 host | 


computer on the Defense Data Net- | 
work (DDN). This repository, estab- 


lished on November 26, 1984, is acces- 


sible to thousands of host computers | 


on the more than 80 subnetworks 
that comprise the DDN. Access to this 
repository will be provided to the 
Ada community at large in the near 
future; with validated Ada compilers 
becoming available for popular mi- 
crocomputers, this large base of pub- 
lic-domain Ada software and infor- 
mation will be a good way to 
introduce yourself to Ada and learn 
more about it. 

The repository on SIMTEL20 serves 
two purposes: to promote the ex- 
change and use of Ada programs and 
tools (including reusable Ada soft- 
ware components) and to promote 
Ada education by providing several 
working examples of programs in 
source form for people to study and 
modify. It also contains other useful 
information. 

The repository is divided into sever- 
al subdirectories by topic. Table 1, 
page 61, shows the general topic ar- 
eas, the subdirectory names, and the 
sizes of the documentation and 
source-code files in each subdirec- 
tory. Today the DOD Ada Software 
Repository contains more 300 files, to- 
taling more than 20 megabytes in size. 


Richard Conn, 6300 Roundrock, Apt. 
3008, Plano, TX 75023 
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DOD Ada 
Soitware Repository 


by Richard Conn 


_ With Ada becoming — 
"available oe sad 


Tour of the Ada Repository 
In the following paragraphs, I will 
take you on a brief tour of the Ada 
Software Repository. I will cover 
only selected points of interest and 
follow Table 1. 

The first topic is “‘General Informa- 
tion,’ under which is the Education 
subdirectory. A glossary of Ada 
terms, a listing of Ada and Ada-relat- 
ed textbooks, a bibliography of Ada 
textbooks (which includes comments 
on the books and their audiences), an 
example of object-oriented design, 
productivity data (which presents 
data from live projects coded in Ada), 
and an example of how Ada can in- 
terface with other languages are 
some of the items of information 
available here. 

The General subdirectory contains 


many tidbits of information, ranging | 
from databases on the repository to | 


tutorials on how to transfer files on 
the DDN. 

The Pointers subdirectory contains 
information on where to look for 


sources of information and Ada soft- | 
ware outside the repository. The | 











large collection of Ada compiler 
benchmarks on USC’s ECLB host com- 
puter, the address of the DOD Soft- 
ware Engineering Institute, the INFO- 


| ADA database on ECLB (which 


provides listings of conferences and 
current events), and a list of all vali- 
dated Ada compilers are some of the 
items contained or referenced in this 


subdirectory. 
The second topic is ‘‘Reusable 
Components.” Reusability of soft- 


ware without the need for a com- 
plete redesign is supported by Ada, 
and subdirectories such as Compo- 
nents, Math, and Virterm were estab- 
lished to contain software compo- 
nents that may be reused time and 
again in various applications. 

Three dynamic string packages, a 
generic quick-sort, two linked-list 
packages, a Unix-style ARGC/ARGV 
parser, and a command-line inter- 
preter are some of the items found in 
Components. Math includes a math 
library of log, trig, exponential, and 
other functions and libraries of ma- 
trix-, bit-, and set-manipulation rou- 
tines. Virterm contains virtual termi- 
nal packages, including a Curses 
package modeled after the Curses of 
Berkeley Unix. 

The third topic, “Software Devel- 
opment Aids,” includes toolsets for 
compilation order, Ada style, and 
metrics analysis of Ada programs; 


| software project-management tools; 


Ada cross-reference programs; three 
Ada pretty printers; and a library file 
manipulation tool (Pager, which 
groups smaller files into larger li- 
brary files). 


Dr. Dobb’s Journal, February 1986 


The communications software in- 
cludes an implementation of the TCP/ 
IP communications protocol (the DOD 
standard) and file transfer (FTP), mail 
handling (SMTP), and host-to-host (TEL- 
NET) communications programs. 

For graphics fans, the Graphical 
Kernel System (GKS) has been imple- 
mented in almost 2 megabytes of Ada 
code. 

Finally, a library of Ada compiler 
benchmarks (different from the one 
on ECLB), two text-file editors, a spell- 
ing checker/corrector, an LALR(1) 
grammar for Ada that may be pro- 
cessed under the LEX/YACC tools of 
Unix, an EMACS front-end for the de- 
velopment of Ada software, and a 
program that can configure a TVI970 
terminal are some of the items found 
under the “Other Topics” category. 


How to Get Software 

If you access a computer on the DDN 
(on the ARPANET, MILNET, or any 
other DDN subnet), you may subscribe 
to the Ada Software Repository mail- 
ing list by sending an electronic mail 
message to ADA-SW-REQUEST@SIM- 
TEL20. In response to your message, 
you will be placed on the ADA-SW 
mailing list, over which notices of 
changes, updates, bugs, and other re- 
pository-oriented information are dis- 
tributed. You will also receive a wel- 
come message that details how to 
access the repository from a DDN host 
computer. 

If you do not have access to a DDN 
host computer, a nine-track magtape 
distribution facility is being estab- 
lished from which any member of 
the Ada community will be able to 
acquire a tape of the entire Ada Soft- 
ware Repository. Also, submission of 
some or all of the software and docu- 
mentation in the repository to the 
public-domain PC-BLUE library is be- 
ing considered. /DDJ will announce 
these public-access opportunies when 
they become official.—ed]} 

Limited DDN access is available to 
members of the Ada community with 
approval of the Ada Information 
Clearinghouse. A public account 
sponsored by the AdalIC on a DDN host 
computer at the University of South- 
ern California (USC-ECLB) host com- 
puter provides access to current in- 
formation on the Ada initiative and 
the ability to link with the SIMTEL20 
host computer, scan the subdirector- 
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ies of the DOD Ada Software Reposi- 
tory, and transfer files from the re- 
pository. These files can then be 
viewed on the ECLB computer or 
transferred to a PC. To obtain the tele- 
phone number and access codes re- 
quired to access the ECLB ADA-INFOR- 
MATION account maintained by the 
AdalIC, send conventional mail or 
telephone: 


Ada Information Clearinghouse 
IIT Research Institute 

Ada Joint Program Office 

Room 3D139 (400 AN) 

The Pentagon 

Washington, DC 20301 

(703) 685-1477 


The DOD Ada Software Repository 
is supported by the U.S. Department 
of Defense, U.S. Army, White Sands 
Missile Range. 


DDJ 
(Listings begin on page 86) 


Reader Ballot 
Vote for your favorite feature/article. 
Circle Reader Service No. 5. 





Topic Directory Documentation Source Code 
(Bytes) (Bytes) 
General Information EDUCATION 195,010 0 
GENERAL 515,205 0 
NOSC-TOOLS 121,531 0 
POINTERS 133,680 0 
965,426 0 
Reusable Components COMPONENTS 96,831 859,493 
MATH 12,367 138,761 
VIRTERM 913,414 597,130 
1,022,612 1,595,384 
Software Development Aids COMPILATION-ORDER 87,124 359,990 
CROSS-REFERENCE 4,457 23,786 
MANAGEMENT-TOOLS 323,686 513,434 
METRICS 304,729 1,390,255 
PAGER 25,442 95,528 
PRETTY-PRINTERS 94,014 659,742 
STUBBER 12 81,309 
SYTLE 227,791 1,595,247 
1,078,855 4,719,291 
Communications Software DDN 30,822 1,959,099 
MESSAGE-HANDLING —232040 sis UC 
273,662 2,936,600 
Graphics and Display Tools FORMGEN 305,823 632,772 
GKS Sec,000 1,991,575 
MENU 860593. AS 8 
996,011 3,074,440 
Other Topics BENCHMARKS 73,733 302,163 
EDITORS 113,372 144,099 
EXTERNAL-TOOLS 25,043 80,520 
SPELLER 387,012 1,777,350 
STARTER-KIT 18,409 83,903 
TOOLS __ 59.876 ss, 40 
677,445 2711375 
TOTAL 5,014,011 15,037,090 
Table 1 
61 
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Data Abstraction 





with Modula-2 


Introduction 
his short article is intended to 
2% illustrate the concept of data 
abstraction via the use of the 
programming language Modula-2. 
We accomplish this by presenting a 


sample program that may prove use- 
ful in its own right. 


We must understand the notion of | - 
data abstraction before we can ap- | — 
preciate the utility of the methods 


presented here. Let us define a prior- 
ity queue as a collection of data, 
along with two operations, add and 
fetch, which maintain that data on a 
smallest-item-first (or largest-item- 
first) basis. 

Suppose we have a magic jar that 
we are free to add or remove data 
items to or from any time we please. 
The data we add to the jar is random- 
ly ordered. When we reach into the 
jar and grab a data item, we are guar- 
anteed that the item will be the 
smallest data item in the jar. It may 
not be the smallest that we have seen 
because we have no idea what data 
has already been removed from or 
added to the jar. Our magic jar is act- 
ing as a priority queue. 

Of major importance is the fact that 
we have no knowledge of the mecha- 
nism of the jar. Internally, we do not 
know if the jar operates by maintain- 
ing a computer sorting procedure 
that is in constant operation or by 
keeping an especially industrious col- 
lection of elves. Nor do we care. 

We are interested only in the ac- 
tion of the jar itself, not in its internal 


mechanism. We may regard the jar | 


Bill Walker and Stephen Alexander, 
Dept. of Computer Science, East Cen- 
tral University, Ada, OK 74820 
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by Bill Walker and 
Stephen Alexander 


‘The ability to sepa- 


_ rate the definition of 


_a data structure from 
mentation is | 
important. 








as an abstraction of a priority queue. 

We should be aware that the jar 
has many uses. We can use it as a 
sorter, for example, by dumping a 
whole collection of numbers into it 
and then fetching them one at a time. 


Languages to Support Data 
Abstraction 

Almost any computer language in use 
today will allow us to write a comput- 
er program that will implement a pri- 
ority queue either by using a static ar- 
ray or by creating a dynamically 


allocated linked list. The problem | 


with most of these languages is that 
the method of handling the priority 
queue is intimately wedded to the ab- 
straction of the queue. There is no 
convenient method of making a pri- 
ority queue available to a user with- 
out also making the unnecessary de- 
tails of the implementation available. 
A few languages, or more comntonly 
language implementations, represent 
exceptions. 


tails of implementation is an impor- 


tant one. This ability is present in | 
several modern languages and in | 





particular is present in the language 
Modula-2, which has recently re- 
ceived considerable attention. 


An Example 

Modular design charts as presented 
in Software Engineering with Modula- 
2 and Ada by Sincovec and Wiener! 
represent a natural expression of ab- 
stract solutions to software prob- 
lems. It follows that modular design 
charts are particularly well suited 
for use in projects employing pro- 
gramming languages that allow high 
levels of abstraction. Figure 1, page 
63, illustrates a modular design chart 
of a small software system. 

The system represented will be 
used to generate random numbers 
and sort them using a priority queue. 
By examining the chart, we see that 
the system will consist of a module to 
generate the pseudorandom num- 
bers; a module to provide the means 
for handling our abstract priority 
queue; and a program, Sorter, to tie 
together the functions supplied by 
our small “‘library.”’ 

Note that the software bus details 
the pathways of communication re- 
quired by the separate modules of 
our system. The software bus is analo- 
gous to a hardware communications 
bus found on modern computers. 

In the design of our chart, we have 
been careful to minimize the com- 
munication required between the 
modules. By minimizing communi- 
cation, we have contributed greatly 


_ to the dependability and maintain- 
The ability to separate the defini- | 
tion of a data structure from the de- | 


ability of our system. 

We present a Modula-2 program 
that follows the scheme of our modu- 
lar design chart. Our program will 
generate 100 pseudorandom num- 
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bers and place them each into a pri- 
ority queue. After the queue is built, 
we will remove the numbers from 
the structure and print them one at a 
time. The definition of a priority 
queue assures us that the numbers 
will be in ascending (or perhaps de- 
scending) order. The step from the 
modular design chart to actual Mo- 
dula-2 code is often a surprisingly 
small one. 

In this example program, we have 
“imported” the functions that are de- 
signed to deal with the priority 
queue. We consider that this pro- 
gram is a client of MODULE Queues, 
which supplies required queue-han- 
dling functions. When we write the 
program, we are entirely ignorant of 
the method used to implement the 
priority queue. We can make the 
same comments about the random 
number generator randu( ) and its 
parent module RandomNumbers. 
We have no idea at all how it works, 
just that it does. Notice that the pro- 
gram is a direct reflection of the ab- 
stract design. 

The two modules Random- 
Numbers and PriorityQueue provide 
procedures that support the MODULE 
Sorter (Listing One, page 94). The fol- 
lowing section provides a rather 
complete description of the informa- 
tion a programmer needs to make 
use of these two modules. 


The Definition Modules 

Let us first turn our attention to DEFI- 
NITION MODULE RandomNumbers 
(Listing Two, page 94). In this module, 
we find that a function procedure 
named randu is exported (made visi- 
ble) so that other modules can use it. 
We see that the function procedure 
randu does not require any parame- 
ters and that the result type is INTE- 
GER. We have been able to glean all 
this information by examining the 
definition module alone. It was not 
necessary to have any knowledge at 
all of how the random number gen- 
erator does its job. The module Ran- 
domNumbers is able to provide ser- 
vices to its clients while masking 
(protecting!) its own internal func- 
tions from those clients. 

In a like manner, DEFINITION MOD- 
ULE Queues provides us with all the 
tools we need to utilize priority 
queues without providing any access 
to the internal workings of those 
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queues. This module exports the 
type PriorityQueue so that user pro- 
grams may declare compatible ob- 
jects of this type. It also provides a 
means of initializing such queues 
(PROCEDURE InitPriorityQueue) and 
for adding items to a queue or fetch- 
ing an item from a queue. There is 
also a function procedure that can 
determine if a given queue is empty. 
(In a production environment, MOD- 
ULE Queues would probably contain 
additional queue-handling proce- 
dures. For purposes of illustration, 
this subset should be sufficient.) 

These procedures provide us with 
a system for manipulating priority 
queues. MODULE Sorter is an example 
of how we can use the objects from 
RandomNumbers and Queues to 
make a useful program. 

Please note that in most recent ver- 
sions of Modula-2, the EXPORT lists 
are not required. In these newer ver- 
sions, the declarations themselves 
serve as the EXPORT list for the defini- 
tion modules?. In MacModula-2 (from 
Modula Corporation), the EXPORT 
lists are required. 


Compiling the Programs 

Modula-2 allows for the compilation 
of both the definition modules and 
the client program Sorter without 
concern for the details of implemen- 
tation. This is important because it al- 


DEF Queues 
Priority Queue 
Init Priority Queue © 


Add 
Fetch 


Queue Empty 


Main Program for |~ 
Abstraction Example 


Figure 1 











lows us to detect any errors in the 
design of the interface of our system. 
For instance, if Sorter incorrectly 
provides us with the wrong number 
of parameters to one of the imported 
procedures, the compiler will supply 
us with ample warning. This feature 
is in contrast to such languages as C, 
which would not flag such an error. 

The compiler is sufficiently sophis- 
ticated to allow explicit type check- 
ing across the boundaries of sepa- 
rately compiled files. It is 
commonplace to compile each of the 
definition modules individually and 
to provide them as libraries for the 
use of the main program. 

At this point, we compiled each of 
the above-listed programs under 
MacModula-2 on a 512K Macintosh. It 
is necessary that both definition 
modules be compiled before MODULE 
Sorter because Sorter is a client of 
these modules. The order of compila- 
tion of the definition modules is arbi- 
trary because neither is dependent 
upon the other. 


Implementation Issues 
In this section we provide implemen- 
tation modules for each of the above- 
defined modules RandomNumbers 
and Queues. 

A library module consists of an in- 
terface (definition module) and an 
implementation (implementation 
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MODULA-2 
(Continued from page 63) 


module). After compiling the imple- 
mentation modules, we have com- 
plete library modules that are avail- 
able to any client. In production 
environments it is important that 
system maintenance be convenient. 
Modula-2’s library concept allows 
for this needed convenience. 

Now we will discuss the implemen- 
tation components of our small li- 
brary and illustrate the exceptional 
ease of maintenance afforded by Mo- 
dula-2. 

Note that the procedures and mod- 
ules listed in Listings Three and Four 
(page 95) that are not discussed are 
part of a standard library of inter- 
faces provided with the MacModula- 
2 system. It is necessary to import the 
utilities Allocate and Deallocate from 
storage in order to use the standard 
procedures New and Dispose. A dis- 
cussion of these standard utilities 
may be found in Niklaus Wirth’s Pro- 
gramming in Modula-22. We feel that 
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the mnemonic value of these decla- 
rations is great enough that further 
discussion of them is not required. 

We have chosen to implement 
Queues via the mechanism of a dy- 
namically allocated linked-list struc- 
ture. Upon examining the imple- 
mentations, we see first that the code 
is easily read and much akin to Pas- 
cal. Upon closer examination we dis- 
cern that the Add procedure is a 
well-known recursively defined al- 
gorithm. At this point we recognize 
that we might later wish to change 
this procedure to a nonrecursive al- 
gorithm. If we do so, it will not be 
necessary to recompile either the of 
the definition modules or the MOD- 
ULE Sorter. The only recompilation 
necessary will be that of IMPLEMEN- 
TATION MODULE Queues. 

The random number generator in 
IMPLEMENTATION MODULE Random- 
Numbers is an example of the classic 
linear congruential multiplicative 
pseudorandom number generator of 
the type discussed in Knuth’s text, 
among others. However, we have 


Z80ASM 


CN iede > Pa 


DON’T ASK HOW OURS CAN BE SO FAST... 
ASK WHY THEIRS ARE SO SLOW! 


“, . a breath of fresh air. .” 
Computer Language, Feb. 85 


“, .in two words, I’d say speed & 
flexibility”, 
Edward Joyce, User’s Guide #15 
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chosen the coefficients for the recur- 
rence relation poorly. If we recog- 
nize this, say after using MODULE 
Sorter for six months or so in a pro- 
duction environment, we can simply 
replace the coefficients with more 
appropriate ones and recompile the 
IMPLEMENTATION MODULE Random- 
Numbers. Because it is not necessary 
to recompile Sorter, a user of the sys- 
tem might be totally unaware that 
we have made any changes. 

If we find that the uses of our sys- 
tem are not well suited to recursion, 
we may change PROCEDURE Add of 
IMPLEMENTATION MODULE Queues to 
a nonrecursive routine. Once again, 
it will be necessary to recompile only 
IMPLEMENTATION MODULE Queues to 
effect the change. 

Before the changes were made, 
our system was capable of sorting 
fewer than 1,000 pseudorandom 
numbers; however, after we in- 
stalled the nonrecursive version of 
Add, we used the system to sort more 
than 4,000 random numbers. (This 
feat was accomplished overnight. In- 
sertion sorting is as slow sorting 
method!) In addition, the range of the 
pseudorandom numbers generated 
by randu was increased from 0. . 6 to 
0.. 4095. 


Conclusion 

In addition to the features of the lan- 
guage shown here, Modula-2 also of- 
fers procedure types, generics, open 
array parameters, low-level facili- 
ties, concurrent processes, and many 
other resources too numerous to 
mention in this article. Those readers 
interested in further study of Mo- 
dula-2 are invited to examine the fol- 
lowing list of sources. 


Notes 

1. Sincovec, R., and Wiener, R. Soft- 
ware Engineering with Modula-2 and 
Ada. New York: John Wiley and 
Sons, 1985. 

2. Wirth, N. Programming in Modula- 
2, Third Edition. New York: Springer- 
Verlag, 1985. 

3. Knuth, D. E. The Art of Computer 
Programming, vol. 2, Seminumerical 
Algorithms. Reading, Mass.: Addison- 
Wesley, 1981. 
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A good C book just isn’t complete without a good C 
compiler to go with it. That’s why we give you both. You get 
a comprehensive 450 page book and a full feature standard 
K&R C compiler with the Unix V7 Extensions. The Book is 
loaded with examples that teach you how to program in C. 
And our fast one pass C compiler comes with an equally fast 


The Best C Book 


-= A Powerful C Compiler 
One Great C Value °39.95 


linker so you don’t waste a lot of time watching your disk 
drives spin. You also get a Unix compatible function library 
that contains more than 150 functions (C source code 
included ). And if all that isn’t enough, we offer you a 30 day 
money back guarantee. So what are you waiting for? The 
exciting world of C is just one free phone call away. 


Language Features 


@ Data Types: char, short, 
int, unsigned, long, float, 
double 


Data Classes: auto, 
extern, static, register 


® Typedef, Struct, Union, 
Bit Fields, Enumerations 


Structure Assignment, 
Passing/Returning 
Structures 


Functions 





MIX Editor 
$29.95 


When you’re programming in a high 
level language you need a high power- 
ed editor. That’s why we created a 
programmable full/split screen text 
processor. It lets you split the screen 
horizontally or vertically and edit two 
files at once. You can move text back 
and forth between two windows. You 
can also create your own macro com- 
mands from an assortment of over 


100 predefined commands. The editor 
comes configured so that it works just 
like Wordstar but you can change it if 
you prefer a different keyboard layout. 
The editor is a great companion to our 
C compiler. Because they work so 
well together we want you to have 
both. To make sure you do, we're 
offering the editor for just $15 when 
purchased with the C compiler. 


NOT COPY PROTECTED 


























write 
writechs 
xmembeg 
xmemend 
xmemget 
xmemput 
xmovmem 
~exit 


ASM Utility 
$40 


The ASM utility disk allows you to link 
object files created by Microsoft's MASM 
or M80 assemblers. Lots of useful assem- 
bly language functions are included as 
examples. 








ORDERS ONLY 


1-800-523-9520 


IN TEXAS 
1-800-622-4070 


Canadian Distributor 
Saraguay Software: 416-923-1500 


| 
| Editor $ (29.95) O PCDOS/MSDOS (2.0 or later) Name | 
| QO) IBM PC Single Side | 
7 “ : eo?) C1 IBM PC Double Side =e , 
, C&Editor $ (54.95) O Tandy 2000 City 
O) 8 Inch 

ASM Utili $ 10.00 
| ( ) O) Other State 
| TX Residents $ (6.125% sales tax) [© CPM 80 (2.2 or later) a 
| 0 8 Inch 'P | 

Shipping $ (see below) ; 

0) Kaypro II \ 

| oe - YP 4 Country 
| To R pte Kaypro | 
| O Check UO Money Order 0 Apple (Z80) Phone 
po ee ee D Osborne I SD MDC 282" 7 

Shipping Charges: (No charge for ASM Utility) 0 Osborne I DD Suite 363 
| USA: $5/Order © Morrow MD II software Richardson, TX 75081 7 
| Canada: $10/ Order : 7 Gabe (2 14) 783-6001 
| Overseas: $10/Editor © $20/C @ $30/C & Editor Ask about our volume discounts. D| 





Unix is a trademark of Bell Labs. CPM is a trademark of Digital Research. MSDOSisa trademark of Microsoft. PCDOS is a trademark of IBM. WORDSTAR is a trademark of Micro Pro. 
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Ingtahhten «eee ee 


LISTING TWO (Text begins on page 16) 
The Rasteshi 00 ee 





1 #include <stdio.h> 
I fe C #include <ctype.h> 
nter preter or 4 /* HIST.C Support for Unix-like eer y In addition, if ! is 
ms replaced with a * you'll be in edit mode before 
. re-executing the command. Legal syntaxes are: 
; e Copyright (C) 1985 Allen I. Holub. All rights reserved. 
Runs your programs 50 10 + 
e dae 8 non-edit edit function 
to 500 times faster than 12 + mode: mode: per formed: 
24 } ne c i d 
any other C language ‘2 * !'<num> “<num> repeat end with hist, number <num> 
° * !<pat> “<pat> repeat cmd that matches pat. 
interpreter. ae ee i> File e Save history list to file 
is : '< file Restore history list from file 
: 20 Externally accessable routines are: 
{ 2 
Ae ee you compile Lee void print_hist(fp) Print the history list along with 
and link time when developing your a3 : FILE *ipe associated nums (for the !<num> command). 
programs. But only Instant-C saves 25 : int get_hnum() seks “ bistory number that wit be 
your time by running your program at $s : associated with the next ca to history. 
: 28 * void histo buf, maxbuf) 
compiled-code speed. 29 * char *buf; = Add the contents of buf to the history 
Fastest Development. A program 3) (li Geary eepenac de eens te Pet ees 
‘ +! etc.) expand it too. In is case, 
that runs in one second when compiled 5 atone flac aaa Lee 
with an optimizing compiler runs in Sexy ert were. Woe SePiaa 
two or three seconds with Instant-C. Bi ete is ee Se ek i ee cee tere eA a 
Other interpreters will run the same 38 
: ; 39 extern char *strsave ( char* ‘ 
program in two minutes. Or even ten 40 extern int strmatch ( char*, char* }3 
‘ ) a4 41 extern char *efgets ( char*, int, FILE* )}; 
minutes. Don’t trade slow compiling 42 
pets : 1 a i ee re ae ce a ec cho ny eer ew ec in San enn cvtdn weiss temic noe ee, * 
and linking for slow testing and debug- had . 
ging. Only Instant-C will let you edit, af adoring Gener Co tee uae ee OE Bisbony tae’ 
; 47 #define END &Hist list [MAXHIST-1 
me we debug at the fastest possible 48 fdefine Hist cy ft 
Speeds. eftine a Mead 
50 #define READ CH '<'! 
Fastest Testing. Instant-C immedi- SS ee ee 
ately executes any C expression, state- 2% #define DEF _HNAME "/histlist" i* or iS eee Oe ee en 
! ! ; - no file given). 
ment, or function call, and display the Be ay ecko tee cet gee Bee Ce Ee aera lune rie 5 
results. Learn C, or test your programs as /* History list, maintained as a ring buffer: of 
faster than ever before. 59 static char *Hist_list [MAXHIST] = 
i - ive: 61 NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, 
Fastest Debugging. Instant C gives 62 NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, 
you the best source-level debugger for 63 Noe, NULL, NULL, NOLL, NULL, NULL, NULL, NULL, 
C. Single-step by source statement, or 65} 
set any number of conditional break- 67 static char **Hist ptr = START; /* Pointer into history list  */ 
. = . * 
points throughout your program. Errors ae static int Hist num Ll} /* Current history number / 
always show the source statements Sr DT a. MRE MT ME eT are eT era id 
involved. Once you find the problem, Te Chee ee ga tek (aim) 
test the correction in seconds. 74 { 
J te ft If cmd is non-null, add it to the history ist, 
Fastest Programming. Instant-C 7 ef Commands are copied into a malloced buffer. 
can directly generate executable files, . GEC" dchiais 
supports full K & R standard C, comes 80 = eee 
; ¢ 
with complete library source, and works 82 free ( *Hist ptr ); 
under PC-DOS, MS-DOS, or CP/M-86. a4 if( ! (*Hist_ptr = strsave(cmd)) ) 
Instant-C gives you working, well- Be ea hs REET ee Sen OL REMY IFT XETTS 
87 
tested programs faster than any other ae bikie 
programming tool. Satisfaction guar- 89 aie = goede 
anteed, or your money back in first 31 x 
31 days. Instant-C is $495. 93 } 
94 
aaa aaa ar <a ae ena AT */ 
96 
97 static int get_hist (buf, maxbuf, desired) 
a 10nd ae cepener int oes 
a cnar LES 
100 { 
Systems, Inc. 101 f* Copy the epee associated with the indicated history 
102 * n r into buf if possible. Return 1 on success & 0 if 
PO. Box 480 103 * the number isn't in the list (is too old). Negative 
ick MA 01 60 104 * numbers are treated as an offset from the current 
Natic ) 7 105 * history number. If "desired" is 0 then we are 
(617) 653-6194 age > Bgagching tor,2 pattern rather than getting a particular 
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*/ 
register char **p; 
7a !desired ) 
f* A pattern was requested. Return 0 if you can't 
* find it. Otherwise, when the loop is done *p will 
* pees at the correct string. Search the list 
* ackwards starting at the most recently entered 
2 number. 
a p = Hist_ptr, ++tbuf ; 1; ) 
p= (p == START) 2? END: p-1; 
if( !strmatch(buf, *p) ) 
break; 
if( p == Hist ptr || !*p ) 
return 0; 
’ --buf; 
tai 
ye An actual history number has been requested: 
* 1) Convert a negative offset into an actual 
* history number if necessary. 
* 2) Then convert the history number into an 
* offset into the history list. Note that 
* this will be a negative offset even though 
* the result of this operation is positive. 
* 3) If the offset is out of range, return a 0 
* 4) Else convert the offset into a pointer into 
* the history list. If the pointer is off the 
F list wrap around to the other end. 
if( desired < 0 ) fe -1 */ 
desired += Hist_num; 
desired = Hist_num - desired; £X 2 iF 
if( desired <1 || desired > MAXHIST ) FE  32FZ 
return 0; 
if( (p = Hist ptr - desired) < START ) f* Q */ 
p += MAXHIST; 
strncpy( buf, *p, maxbuf ); 
’ return 1; 
/* eas Sab md Gi ul al comes gi a Wasa il enc Gs Ga us GUD as ao es GU Sgn spe sas SPD gS is i i ei i a i'l sa Sl cr Weg cen msg etree pi mee x / 
static int eget hist( buf, maxbuf, desired }) 
ae *buf; =A 
f= Works just like get hist except lets you edit the 
* command. Note that the string returned by this routine 
* will be overwritten by the next call. Copy it somewhere 
ae if you need to save it. 
register int rval; 
if( rval = =: hist (buf, maxbuf, desired) ) 
rval = (int) efgets(buf, maxbuf, stdin) ; 
return rval ; 
} 
/* on caves es ec enin Ekta egies om dm een Cth en CAGED eK OnT KEEN eee ES Sy Suen EDaNEDener =tatan anes Gbew Gs SEs cay as SGs Sa mn/an en at een anes ewes aan ewes x/ 
i get_hnum() 
return Hist num ; 
, 2 
/t---------------------------------------------------------------------- */ 
void print _hist( stream ) 
FILE *stream; 
{ 
register char **hp = Hist _ptr ; 
register int i = Hist "num - MAXHIST ; 
do { 
12404. >= 1-9 
fprintf (stream, "%3d: %s\n", i, *hp ); 
if( ++hp > END ) 
hp = START; 
} while( ++i < Hist_num ) ; 
} 
/* eee ee ee x / 
char *hist name( fname ) 
register char *fname; 
/* Strip leading white space from fname and then 
* return a pointer to either the first non-white 
* character or to DEF HNAME if there is no 
* non-white character 


(Continued on next page) 
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* *%& FEATURES * * 
THAT DOS FORGOT! 


/AFTER = DATE [TIME] 
/BEFORE = DATE [TIME] 
/EXCLUDE = (FILE SPEC) 
/INCLUDE = (FILE SPEC) 
/{NO] SIZE 

/[NO] DATE 

/[NO] PATH 

/[NO] STATS 

/BRIEF 


FOR MS/PC-DOS 
VER 2.0 — LATER 





$24.95 


Plus Shipping 


California Residents 
Please Add 6% Sales Tax 


VISA / MASTER CARD 


MONEY ORDER / C.O.D. 
Checks Allow Two Weeks 


FOR INFORMATION OR ORDERS 
CALL: 


714/496-8599 


9:00 AM. — 5:00 P.M. Pacific Time 


OR SEND ORDER TO: 


ORAFTRONICS 


34184 COAST HIGHWAY 
SUITE #198 
DANA POINT, 
CALIFORNIA 92629 
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PRIME FEATURES 


Execute DOS level commands 
in HS/FORTH, or execute DOS 
and BIOS functions directly. 
Execute other programs under 
HS/FORTH supervision. 

(editors debuggers file managers etc) 


® Use our editor or your own. 
°® Save environment any time 


as .COM or .EXE file. 
Eliminate headers, reclaim 
Space without recompiling. 


° Trace and decompile. 
® Deferred definition, 


execution vectors, case, 
interrupt handlers. 


FORTH 


Full 8087 high level support. 
Full range transcendentals 
(tan sin cos arctan logs exponentials) 
Data type conversion and 
|/O parse/format to 18 
digits plus exponent. 
Complete Assembler 
for 8088, 80186, and 8087. 
String functions - 
(LEFT RIGHT MID LOC COMP 
XCHG JOIN) 
Graphics & Music 
Includes Forth-79 and Forth-83 
File and/or Screen interfaces 
Segment Management 
Full megabyte - programs or data 
Fully Optimized & Tested for: 
IBM-PC XT AT and JR 
COMPAQ and TANDY 1000 & 2000 
(Runs on all true MSDOS 
compatibles!) 
Compare 
BYTE Sieve Benchmark jan 83 
HS/FORTH 47 sec BASIC 2000 sec 
with AUTO-OPT 9 sec Assembler 5 sec 
other Forths (mostly 64k) 55-140 sec 
FASTEST FORTH SYSTEM 
AVAILABLE. 
TWICE AS FAST AS OTHER 
FULL MEGABYTE FORTHS! 


(TEN TIMES FASTER WHEN USING AUTO-OPT!) 


HS/FORTH, complete system only: $270. 





“my. Visa Mastercard @® 


HARVARD 


SOFTWORKS 


P.O. BOX 69 
SPRINGBORO, OH 45066 
(513) 748-0390 
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C CHEST 


LISTING TWO (Listing continued, text begins on page 16) 


221 */ 


223 while( isspace(*fname) ) 
224 fname++; 


226 return ( *fname ) ? fname : DEF_HNAME ; 


231 save hist( fname ) 
232 register char * fname; 


234 /* Save the current oe list in either the indicated 
eae as file or in DEF_HNAME if no file is given. 


238 register FILE *fp; 
oar fname = hist_name( fname ); 


242 if( !(fp = fopen(fname,"w")) ) 
243 perror (fname) ; 
244 a 


246 print hist (fp); 
247 fclosé (fp); 


253 restore hist( fname ) 
ote char ~* fname; 


256 /* Add the contents of fname (or DEF HNAME if fname is 
257 * empty) to the history list. Don't execute the 
ane ey commands. 


261 register FILE *fp; 
262 register char aE ; 
263 char *put* 3 


265 fname = hist _name( fname ); 


267 if( !(fp = fopen( fname, “"r" )) ) 
268 perror (fname) ; 


270 else if( ! (buf = malloc(1024) )) 
271 fprintf(stderr,"Not enough memory\n") ; 
272 oe 


274 ek efgets(buf, 1024, fp) ) 
276 for(p = buf; isdigit(*p) || isspace(*p); pt+ ) 


279 Lf (-*pose fs!) f*) Skip. a. t<blank> if >..*/ 
280 ptt; /* one is present a 
281 if( *p == '*) 

282 ptt+; 


284 add hist( p ); 

285 #ifdef DEBUG ii 

286 printf ("adding %3d: %s\n", Hist num - 1, p ); 
aoe #endif w 


290 free( buf ); 


296 void history( buf, maxbuf ) 
oan en char *buft; 


299 register int be ew og 
300 register char *p = buf; 
302 / If buf contains a eee request (!! ** !<num or “*<num) 
replace its contents as indicated. In any event add the 
contents of buf (after the replacement if one was done) to 
the history list. Blank lines are ignored. If a history 

ai tee occures, the expanded line is printed. 

Null stings won't be added to the history list. 


W 
oO 
ul 
+ + + t + HF F 


/ 


310 if¢ Pp} 
Sik return; 


x | get *pD == HIST CH || *p == EDIT CH }) 
315 /* First increment p to point at the second character 
316 * in the buffer. If the second character in the buffer is 
sz i ! or * then i = -1, otherwise it gets the history #. 
320 if( *++p == READ CH ) 
; 

322 restore hist( p +1 ); 

*buf = T\0'; 


} 
325 eee if( *p == WRITE CH ) 
327 save hist( p + 1 ); 
328 “bude \0t? 3 
(Continued on page 70) 
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DO YOU KNOW XTREE? 


Path:\ SPREADS \ BUDGET \ 1985 


AUGUST. 
aKa | a i) ee) 
a) tt Nk 


FILE: *.DAT 


DISK: A: XTREE(C)ES! 
PTE Ld 
Bytes: 189,449 


UN BR Fis] 
tue 


at 98 
Bytes: 120,672 
fa) 


7) 


Av JANUARY .DAT 
DAT 1a A 


LL Av 
NOVEMBER .DAT 
OCTOBER .DAT 
Sta) 


LL ae 
re CMa Me MU MPL mo Cur CMC me LC 3d 


COMMANDS Tag Untag Volume “Tag “Unta 


pee ama Bee j 





25 quit F2 help 


Current Directory 
1985 


as 


R74 


V4 


This interface helps thousands of computer users all over the world organize their files everyday. 


D. you know me? I’m the 
most powerful graphic file and 
directory management program 
money can buy. Thousands of 
people use me everyday because 
I make file and directory 
organization easy. 

My commands are simple. Just 
one keystroke lets you access, 
delete, rename, view, move, list, 
or print any and all files within 
any and all directories on a 
floppy and hard disk. Still some 
people don’t recognize me. 

My clear graphic representa- 
tion of your directory tree struc- 
ture is recognized world over as 
making PC-DOS simple to 
understand—even for beginners. 
Yet I’m powerful enough for the 
most discriminating DOS users. 

I’m also a time saver, work 
saver and file saver. With me, 
reorganizing or creating your 
directory structure takes only 
minutes, instead of hours. And 
you'll never, ever misplace a file 
again. 











Software reviewers know me 
as one of the most useful pro- 
grams ever developed for hard 
disk users. PC WEEK said my 
performance was “unparal- 
leled”’. PC Magazine praised my 
power and “quick as lightening 
speed”. The entire InfoWorld 
staff uses me and even John 
Dvorak recommends me 


2 ‘highly’ f 















Send me copies. 
Payment: VISA 


Credit Card Expiration Date: 
Card # 











Name 


Address 


City / State / Zip 








Executive Systems Inc. 


Circle no. 180 on reader service card. 


SYSTEM REQUIREMENTS: IBM PC/AT/XT or compatibles including Tandy 2000 with 
192K of memory, and MS-DOS 2.0 or PC-DOS. Not copy-protected. 


Yes! I want to know XTREE at $49.95 each, plus $3.00 s/h (CA residents 
add 6% sales tax. International orders add $10.00 s/h.) 


Total enclosed 
MasterCard 


To order or to find your nearest dealer contact: 


15300 Ventura Blvd. Suite 305 * Sherman Oaks, CA 91403 
(800) 634-5545 or (800) 551-5353 in CA. 


And at $49.95, complete with 
a 30-day money back guarantee, 
my users know me as a real 
value. I’m XTREE, recognized 
worldwide as ‘The new stan- 
dard for file and directory 
management.’ 


XTREE: 


Don’t use DOS without it! 


AmEx Check 








Byte Magazine called it. C C H E ST 


a ’ LISTING TWO (Listing continued, text begins on page 16) 
CIARCIA S 


SUPER 
SYSTEM” 


if 


il 


329 } 
330 else 
331 { 


334 if( *buf == EDIT CH ) 
335 i = eget~hist( buf, maxbuf, i); 


337 else if( i = get hist( buf, maxbuf, i) ) 
338 puts (buf); 







342 we iti) 


344 fprintf(stderr, "\"%s\" not in history list\n", buf); 
345 *buf = "\0's 


347 } 
349 add_hist( buf ); 


ae #ifdef DEBUG 
356 main () 
eet 


358 pe Test the history function. Everything typed at the 
The $BI80 359 * console is added to the history list and all of 
360 * the history expansion functions should work. 


Computer/Controller 361 */ 


3 h buf [132]; 
Featured on the cover of Byte, Sept. 1985, ahs SOE uf [132] 


the SB180 lets CP/M users upgrade to a 365 ae (1) 


4s Tf tf 366 
fast, 4” x 7/2” single board system. 367 printf("[%d] ", get hnum() ); 


369 if ( = (buf) ) 


@ 6MHz 64180 CPU 371 reak; 


(Z80 instruction superset), 256K RAM, 372 history( buf, 132 ); 


8K Monitor ROM with device test, disk 374 if( *buf == 'h' c& !buf[1] ) 


format, read/write. 375 int hist( stdout ‘ 
@ Mini/Micro Floppy Controller 376 } Bea eA ae it de 


(1-4 drives, Single/Double Density, 377 4 
1-2 sided, 40/77/80 track 3%'/ 5%’ 378 
and 8” drives). 379 #endif 
@ Measures 4’’ x 7%" with mounting holes 
@ One Centronics Printer Port 
© Two RS232C Serial Ports End Listing Two 
(75-19,200 baud with console port 
auto-baud rate select). 


Oa CONOR LISTING THREE 
+12V +/- 20% @40mA 
W CCERSICEIM 2a) oe COMPAID: 622 1s | tn ee oe a eee ee re es ee 

















® Multiple disk formats supported 1 #include <stdio.h> 
@ Menu-based system customization : #include <ctype.h> 
: ee VAR.C Support for shell variables and aliases. 
$B 180-1 
SB180 computer board w/256K : é Copyright (c) 1985, Allen I. Holub. All rights reserved. 
bytes RAM and ROM ee ba 8 * Externally accessible routines: 
a 10 * void unsetvar( name ) Delete a variable or alias 
SB180-1-20 11 * int setvar( name, val ) Create/init a variable or alias 
same as above w/ZCPR3, ZRDOS 12 * void printalias () Print all aliases 
and’ BIOS’ source: =... $499.00 13. * void printvars () Print all shell variables 
ee - int getvar(srcp, 'destp, maxcount) Expand a variable or alias 
“Quantity discounts available- 16 * The same routines are used for both shell variables and aliases. The 
3 ee have the high bit of the first character in the name set. 
NEw 20 /* I is true if c is legal 4 
Sname is true c is lega na name. NAMELEN is the maximum 
COMM 180-M-S a3 . length of a name (additional characters are truncated). 
optional peripheral board adds 23 : 
1200 bps modem and SCS/ 24 #define isname(c) (isalnum(c) || (c)=="_' [|| (c)=='=" || (c)==':') 
hard disk interface. £9 #define isalias(p) ( *(p) & Ox80 ) ie 
4] #define NAMELEN 8 
TO ORDER re pores struct var 
CALL TOLL FREE TELEX 
31 char name [NAMELEN] ; 
1-800-635-3355 643331 32 struct var next 7 
33 char val{[l1]}; 
For technical assistance or 35 VAR; 
to request a data sheet, call: e ; 
Static VAR *Varlist = NULL ; 
1-203-871-6170 38 static VAR *Lastvar = NULL ; 
ee extern char *getenv( char* ); 
&S, : 3 PE a me er a eet ra proach iSight RT 
RS : i 43 static VAR *findvar( name ) 
Ss Micromint, Inc. x ge *name; 
25 Terrace Drive 
Vernon, CT 06066 (Continued on page 72) 
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C Compiler 
is Great... 


Computer 








DALE HILLMAN, 


PRESIDENT, XOR CORPORATION 
CREATOR OF “NFL CHALLENGE” 


When Dale Hillman 
decided to create the most 
exciting football simulation 
game ever, he knew he 
needed good language 
support. The portability and 
maintainability of C made it 
a natural choice. Which 
C compiler to choose was 
another matter entirely. 

“Of the many C compilers 
available, choosing the best 
one for the job was not easy. 
Comparing benchmarks, most 
compilers were strong in 
one or two categories, yet 
decidedly weak in others. 


Innovations 
Support is 
Even GREATER’ 





Computer Innovations’ C86 
was the exception. | found 
the C86 Compiler con- 
sistently strong in all 
categories. 

“C86 had a reputation for 
being a solid, reliable, high- 
performance compiler. 8087 
math support, source level 
debugging — it had it all. 
BEST of all was Computer 
Innovations’ incredible 
technical support. Their 
highly knowledgeable 
support team was always 
available. Their assistance 
helped cut development 












time substantially. And since 
NFL CHALLENGE took 12 12 
man-years to create — 
every little bit helped. It was 
a service you just can't 
place a dollar value on.. .” 

lf you’re working on the 
next great program, call 
Computer Innovations. We'll 
show you why you'll never 
have to look any further 
than C86. 


For Further Details 
Call Toll-Free: 


800-922-0169 





ye COMPUTER 
ms INNOVATIONS, INC. 


980 Shrewsbury Avenue, 
Tinton Fails, NJ 07724 USA (201) 542-5920 


EUROPEAN DISTRIBUTOR 
Boston Micro, Inc., TELEX. 6712477 BMI USA 
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features. 


1986/approx 464 pp/46 illus/hardcover 
$34.00 
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C.GHES! 


LISTI NG THREE (Listing continued, text begins on page 16) 


/* Do a search in the Varlist linked list for a 
* variable called "name." Return a pointer to it if 
* it exists or 0 if it doesn't. 
*/ 
register VAR *p; 
for( p = Varlist; p != NULL ; p = p->next) 
if( !strncemp(name, p->name, NAMELEN) ) 
return p; 
return (VAR *)0O ; 
/* See mee ee eee Oe Owe Oe Oe we eee ow ewe we ewe we eee ee ewe ee eee ew eee ew eee ee eee ee ee * / 
void unsetvar( name ) 
char *name; 
/* If the variable called name exists, delete it. 
*/ 
register VAR *2 = Varlist ; 
register VAR *lastp = Varlist ; 
if( !p || !(*name & Ox7f) ) 
return; 
for( p = Varlist; p != NULL ; ) 
rte !strnemp(name, p->name, NAMELEN) ) 
/* If lastp == P then there's only one 
‘os in the list. 
if( lastp == p ) 
Varlist = Lastvar = NULL; 
else 
if( !(lastp->next = p->next) ) 
Lastvar = lastp; 
} 
free( p ); 
break; 
} 
lastp = p.- 5 
; Pp = p->next; 
} 
SA aka lp digo ie i ee cess sani geo ain peris esstnmlcin ape oesign Ed on is bch sien asda deg hon asda * / 
varcpy ( dest , src ) 
pee ates char *dest, *src; 
/* Copy src to dest, see backslashes and quotes, 
* as appropriate (ie a \ within a quoted string isn't 
* stripped. 
=f 
int inquote = 0; 
while( *src ) 
as *srco == '\\') 
if( !tinquote ) 
srctt+; 
else 
*dest++ = *srct++; 
Lf ( *sre ) 
*dest++ = *src++; 
re if (*arc == '"* || *src == '\'') 
inquote = ~inquote; 
; SrCt+? 
else 
*dest++ = *srct++; 
*dest = 0; 
} 
/* nn wr wr wr wn wo nn ee * / 
int setvar( name, val ) 
char *name, *val; 
/* Set the value of the variable "name" to "val". If it 
Sy already exists, delete it. 
register VAR *vp; 
if( !*name ) 
return 0; 
unsetvar( name }; 
if( !(vp = (VAR *) malloc(sizeof (VAR) + strlen(val))) } 
return 0; 
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strncpy( vp->name, name, NAMELEN }; 
varcpy ( vp->val , val ); 


vp->next = NULL; 


if( !Varlist ) 
Varlist = vp; 
else 
Lastvar->next = vp; 


Lastvar = vp; 
return 1; 


* All routines in this module may be used for both aliases and shell 
* variables eaceet for the two print routines. Alias's have 


* the high bit i 
*/ 


the first character of the name string set. 


va printalias() 


} 


register VAR *p; 


for( p = Varlist; p != NULL ; p = p->next) 
if( isalias(p->name) )} 
printf ("%c%-8.8s: %s\n", 
*(p->name) & Ox7f, p->name +1, p->val ); 


roe printvars () 


register VAR *pr 


for( p = Varlist; p != NULL 
if( tisalias (p->name 


p = p->next) 
printf ("%-8.8s: 


s\n", p->name, p->val }; 


me ee ee ee rrr rrr * / 
getvar ( srcp, destp, maxcountp ) 
*destp, **srcp; 
*maxcountp; 
/* Expand variable at "*srcp" into destp. Do nothing if 
* the variable doesn't exist, otherwise update ee to 
* point past the variable name, update destp to point 
* past the end of the expanded variable, and decrement 
* maxcountp by the proper amount. 
* 
* Both shell variables and enviornment variables will be 
* expanded. However, shell variables take presendance 
‘ over enviornments (they're looked for first). 
* A name can consist of any character in the set 
{a-zA-Z0-9-_}. 
* If the name is for an alias it will be copied to dest if 
* it can't be expanded, otherwise the name is discarded 
oe it can't be expanded. 
register VAR - ‘*vp; 
char name [NAMELEN+1] ; 
register char *p = name; 
int i = NAMELEN; 
/* If the source string is eae or doesn't contain a legit. 
aoe then return, doing nothing to dest. 
* 
if( !**srep || !isname(**srcp & Ox7f) ) 
return 0; 
{* Extract the name from the string at *srcp, updating 
27 *srcp to point past it. 


for( **srcp; isname(**srcp & Ox7f) && --1i>=0; *ptt+ = * (*srcp) ++ ) 


*p = 0; 


/* Now look for the name. If findvar returns true it's 
ee a variable or alias. 
* 


if( vp = findvar(name) ) 


/* Expand the alias. Note that the since we 
* are called from exp vars, this next 


* call is a second order recursion. 
x / 


i = exp vars( *destp, vp->val, *maxcountp, Zz }F 
*destp” +t=i; 
*maxcountp -= i ;? 


else 


/* It's not in the variable table. If we're processing 

* an alias, copy the name to dest. If we're not 

* processing an alias, but the variable is in the 

* envoirnment, then copy the contents of the enviornment 
ote do nothing. 

* 


if( p = isalias(name) ? name : getenv (name) ) 


while( *maxcountp > 1 && *p ) 


(Continued on next page) 
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Put More 
UNIX” in C CHEST 


Your Cc. LISTING TH R EE (Listing continued, text begins on page 16) 


AH, 

s ale E || 264 { 
Unitools $99 i 265 sdestp = se 
MAKE, DIFF and GREP Ws 267 Le eee unt erect 
These versatile UNIX-style utilities put 268 } 
power at your fingertips. MAKE, a an } 
program administrative tool, is like 271 Es a 
having an assistant programmer at your aie } ixaiue eet oe yy 


side. DIFF compares files and shows 
you the differences between them. 
GREP can search one or many files 
looking for one pattern or a host of 


End Listing Three 








patterns. _ 
LISTING FOUR 
4 

W-Sipiinarehedigee ae ee ke as Oa, pads Chak eo ep ig 
66 Zz” $99 2 A : Sneak 
A Powerful “vi’-type Editor: ; va UNARGV.C ee all argv entries into a single 
Similar to the Berkeley “vi’’ editor, ; */ 

Z’s” commands are flexible, terse, 7 int unargv( argc, argv, dest, maxcount ) 
and powerful; macro functions give you 8 char **argv, *dest; | 
unlimited range. Features include ‘ge ee 
“undo,” sophisticated search and re- 11 ar Turn argv into a single string, with a single ' ' seperating 
place functions, automatic indentation, ae * Ehe: cuer of Bnarcetces cr eet oe eee 
C-tags, and much, much more. . “3 */ 
sential 16 register char *src; 

ae char *sdest = dest; 

19 while( --arge >= 0 && maxcount > 0 ) 
PC-LINT $99 26 i 

: ili +e ‘ae 21: for( src = *argv++; *src && --maxcount > 0; ) 
Error Checking Utility ; 52 Sdestst .«-*aret++ i 
A LINT-like utility that analyzes pro- 23 
grams and uncovers bugs, quirks and Ze if( Geena cee Bee 
inconsistencies. Detects subtle errors. 26 } : 
Supports large and small memory mod- ee Nedbat: wee 
els, has clear error messages and 29 return( dest - sdest ); 
executes quickly. Has lots of options ous 
and features that you wouldn’t expect End Listing Four 
at this low price. 
ou ty 
Been 
Yn 
(3@@2) | | LISTING FIVE 

SunScreen $99 Wary 
Re nen reer SMe eerie ft FEE thee ts heal ee we Oi eee oes bok Si sees ind 


This versatile graphics package easily 1 extern int strcpy ( char*, char* ); 
creates and modifies formatted screens, capers tons ae ae eee ie 
validates fields, supports function keys, 4 
color and monochrome cards. With li- : atone *strsave( str ) 
brary source SunScreen is $199. ; ener *str; 
9 /* Save the indicated string in a malloc()ed section 
“ 4 a 10 * of static oeeer Return a pointer to the copy or 
Compatible with all leading MS/ . 0 if malloc failed 
PC-DOS C compilers. 13 . 
14 register char *rptr; 
2 extern char *malloc(); 
aT if( rptr = malloc( strlen(str) +1 )) 
SPECIAL OFFER: - { ' ‘ 
* “73 strcp CF, -Scr -}i3 
Unitools, Z, 20 eetirn etre: 
PC-LINT and Sun- a } 
Screen All for only 53 return (char *)0; 
24 } 


End Listings 


To order or for information call: 


[GWAR 


1 800-TEC-WARE 


(In NJ call 201-530-6307) 


UNIX 1s a repstered TM of Bell Laboratones, MANX AZTEC TM Manz Software Systems. Inc PC 
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Californ 


IF YOU DON’T SEE IT, CALL! 


lable at 


the best pricing. Space limits us to only a 
fraction of what we sell. Call us for a quote 
and delivery information. If we dont have 


LISTING ONE (Text begins on page 26) 


{ file polydiv.pas, 85/9/18/tfr (from 9/15,13) } 
{ simulation of CRC-type operations } 


{ "x Shl 1" must itself be "x + x"; init x to 1 first } 


BEGIN 


an := ((a AND (1 SHL n)) <> 0); 


{ Copyright (c) 1985, T.F. Ritter; All Rights Reserved } END; 


{ generates a binary trace through the polynomial division 
{ and cre algorithms to illustrate equivalent results 
{ (this assumes we init the remainder reg. to 0) } 


{$R+} { Range Checks ON } 
PROGRAM polydiv; 
{ first, output through MSDOS, and define binary display } 


TYPE 
regs = RECORD 
ax, bx, cx, dx,bp, si, di,ds,es,flags: INTEGER; 
END; 


PROCEDURE bdosch( ch: CHAR ); 
{ output through MSDOS; allow Ctrl1-P toggle } 
VAR r: regs; 
BEGIN 
r.ax := $0200; 
r.dx := ORD(ch); 
MsDos( r ); 
END; 


TYPE 
small = 0..15; 


PROCEDURE showbin( x: INTEGER; from, too: small ); 

{ display subset of integer as binary bits } 
{ from and too are place values (15 - 0) left to right } 
VAR i: small; 
BEGIN 
WRITEL *: 59. }3 
FOR i := 15 DOWNTO 0 DO 

BEGIN 

IF i IN [too..from] THEN 

IF (x < 0) THEN 


WRITE( ' 1° ) 
ELSE 
WRITE( ' O! ) 
{ 
ELSE 
WRITE C0 -os 4 
be 
x := x Shl 1; 
END; 
WRITE( * * )3 


END; {showbin} 


VAR { globals } 


a: INTEGER; { the remainder value register; right-aligned } 
p: INTEGER; { the polynomial; right-aligned } 
d: INTEGER; { the data; left-aligned } 
deg: small; { the degree of the polynomial } 
{ 


dbits: BYTE; the number of data bits to process } 


PROCEDURE showad( pb: small ); 
{ show current remainder and next data bit (only) } 
{ the data bit on the last step is meaningless } 
BEGIN 
WRITELN; 
showbin( a, (pb - 1), 0 ); 
showbin( d, 15, 15 ); 
END; 


{ start bit-level utilities for crc-type algorithms } 


TYPE 
abit = 0..1; 


FUNCTION dn: abit; 
{ value of next data bit } 
{ since d is an INTEGER, "d Shl 1" = "qd + a" } 
{ use “d := d+ da" in other Pascals } 
BEGIN 
IF (d < 0) THEN 
dn := 1 
ELSE 
dn := 0; 
dad := d Shl 1; 
END; 


FUNCTION an( n: small ): BOOLEAN; 
{ value of particular remainder bit } 
{ for other Pascals, use a loop and do "x Shl 1" n times } 
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{ start crce-type algorithms } 


PROCEDURE pdiv; 
{ mod-2 polynomial division (for remainder only) } 
BEGIN 
IF an(deg - 1) THEN 


a := (a Shl 1) XOR p XOR dn 


ELSE 


a := (a Shl 1) XOR dn; 


END; {pdiv} 


PROCEDURE crc; 


{ mod-2 remainder without extra zeros } 


BEGIN 


IF (an(deg - 1) XOR (dn <> 0)) THEN 
a := (a Shl 1) XOR p 


ELSE 


a := (a Shl 1); 


END; {crc} 


{ start trace displays; show one or the other } 


PROCEDURE showpdiv( dbits: BYTE ); 


VAR i: BYTE; 
BEGIN 
WRITE( *M*J'POLYNOMIAL DIVIDE; Polynomial = ' ); 
showbin( p, deg, 0 ); 
WRITE( *M*J'Remainder Data‘ ); 
showad( deg ); 
FOR i := 1 TO dbits DO 
BEGIN 
pdiv; 
showad( deg ); 
END; 
WRITELN; 
END; 


PROCEDURE showcrc( dbits: BYTE ); 


VAR i: BYTE; 
BEGIN 
WRITE( “M*J'CRC OPERATION; Polynomial = ' ); 
showbin( p, deg, 0 ); 
WRITE( *M*J'Remainder Data' ); 
showad( deg ); 
FOR i := 1 TO dbits DO 
BEGIN 
cre; 
showad( deg ); 
END; 
WRITELN; 
END; 


PROCEDURE init( i: BYTE ); 


{ select one of the initializations } 


PROCEDURE init1; 
{ simulating long division example } 
{ from Peterson & Brown, Proc. of the IRE, Jan. 1961, p. 232 } 
BEGIN 
p := $0005; 
deg := 2; 
d := $e800; 
dbits := 6; 
END; {init1} 


PROCEDURE init2; 
{ simulating generation of check code } 
{ Peterson & Brown, 1961, p. 229 } 
{ data are shifted left, so are in reversed order from article} 
BEGIN 
p := $0035; { the classical example polynomial } 
deg := 5; 
d := $8940; 
dbits := 10; 
END; {init2} 


PROCEDURE init3; 
{ simulating published tables } 
{ K. Rallapalli, EDN, Sept. 5 1978, pp. 119 - 123 } 
BEGIN 
p := $0035; { here it is again } 
deg := 5; 
d := $dib0; 
dbits := 12; 
END; {init3} 


BEGIN {init} 
CASE i OF 
Le inte 


2: init2; (Continued on page 78) 
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CRC 


LISTING ONE 


(Listings continued, text begins on page 26) 


3: init3; 
END; {case} 
a := 0; 
END; {init} 


{ start of the ultimate command code } 


VAR 
i: BYTE; 


BEGIN {main} 
ConOutPtr := Ofs( bdosch ); {allow Ctrl-P printer toggle} 


{ for three different initializations ... } 
FOR i := 1 TO 3 DO 
{ show binary trace of pdiv and cre algorithms } 
BEGIN 
init( i ); 
showpdiv( dbits + deg ); 
init( i); 
showcrc( dbits ); 
END; 


END. {main} 


{ end file polydiv } 
End Listing One 


LISTING TWO 


“M* J, 
“M* J, 
“M* J, 
“M*T 


{ file crctime.pas, 85/9/18/tfr (from 9/15, 7/13, 6/27-26, 
showtime.pas 3/23, 1/4, 84/12/25 
and showkeys 12/12-11, 11/17 
and strinkey.pas, 11/17) } 

{ compute cre execution times } 


{ Copyright (c) 1984, 1985, T.F. Ritter; All Rights Reserved } 
{ Please feel free to copy and use the CRC routines, but... } 


do include the name of the CRC programmer when you do. } 
The CRC programmer is Terry Ritter. } 


AIMS: } 

1. Display a number of different CRC-CCITT implementations. } 
2. Verify identical results. } 

3. Collect and display time statistics on each routine. } 


ee ee 


PROGRAM showtime; 


{ minimum overhead for speed tests } 
{$R-} { Range Checks OFF } 
{$C-} { Ctrl-C Checking OFF } 


PROCEDURE ownership; 
BEGIN 
WRITE( con, 
'CRCTIME, 85/9/18', 
‘Execution times for various CRC implementations.', 
‘Copyright (c) 1985, T.F. Ritter; All Rights Reserved.', 


END; 


TYPE 
regs = RECORD 
ax, bx, cx, dx, bp, si, di, ds,es, flags: INTEGER; 
END; 


PROCEDURE bdosch( ch: CHAR ); 
{ direct console output through MSDOS } 
{ allows Ctrl-P printer toggle } 
{ also skips Ctrl-C break test } 
VAR 
r: regs; 
BEGIN 
r.ax := $0200; 
r.adx := ORD(ch); 
MsDos( r ); 
END; 


{ start of time operations } 


TYPE 
timearty = ARRAY[0..3] of INTEGER; {originally had yr, dy} 


PROCEDURE readhms( VAR dt: timearty ); 
{ Hi(dt(2]) = hrs (0 - 23), Lo(dt(2]) = mins (0 - 59) } 
{ Hi(dt{3]) = secs (0 - 59), Lo(dt(3]) = msecs (0 - 99) } 
VAR 
r: regs; 
BEGIN 
r.ax := $2c00; 
MsDos( r ); 
at(2} := r.cx; 
at(3) := r.dax; 


END; { rddtti } (Continued on page 80) 
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SH—A Unix-like Shell for MS-DOS 


SH is an implementation of the most often used parts of the 
Unix C shell. This package includes an executable version 
of the shell along with the complete source code and full 


documentation. 


Supported features are: 


Editing 


Aliases 


History 


Shell 
variables 


Nested 


batch files 


Unix-like 
syntax 


Command line editing with the cursors Is 
supported. The line is visible as you edit it 


Can be used to change the names of com- 
mands or as very fast memory resident 
batch files. 


The ability to execute a previous command 
again. The command can be eaited before 
being executed. 


Macros that can be used on the command line. 


A batch file can call another batch file like a 
subroutine. Control is passed to the second file 
and then back to the first one when the second 
file is finished. DOS doesnt have this capability. 
Slash (/) used as a directory separator, minus 
(—) as a switch designator. A 2048 byte com- 
mand line is supported. 


The shell also supports redirection of standard input, 
standard output, and standard error. 


This version corrects several bugs found in the original ver- 
sion printed in Dr. Dobb's Journal, December 1985 through 
March 1986 issues. It runs on any MS-DOS computer. 
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mkdir 
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p 
pause 


printenv 
rm 
rmdir 
sub 


A file concatenation and viewing program 
A file copy utility 
Prints the current time and date 


Prints amount of space available and used 
on a disk 


Echoes its arguments to standard output 


Searches for a pattern defined by a regular 
expression. 


Gets a sorted directory. 
Creates a directory 


Renames a file or directory. Moves files to 
another directory. 


Prints a file, one page at a time. 

Prints a message and waits for a response. 
Prints all the environment variables. 
Deletes one or more files. 

Deletes one or more directories. 


Text substitution utility. Replaces all matches of 
a regular expression with another string. 


To order, return this coupon with payment to: M&l Publishing, Inc., 2464 Embarcadero Way, Palo Alto, CA 94303 
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copies of The Shell for $2995 each 
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CRC 
LISTING TWO 


(Listings continued, text begins on page 26) 


FUNCTION timetorealsecs( x: timearty ): REAL; 
BEGIN 


timetorealsecs := (Hi(x[2]) * 3600.0) + (Lo(x[2]) * 60.0) + 


Hi (x{3})° °--€bo(x(3)}). 7: 100. 0y: 
END; 


FUNCTION timedif( a, b: timearty ): REAL; 
BEGIN 
timedif := timetorealsecs( b ) - timetorealsecs( a ); 
END; 


start of CRC stuff } 
byte crc in Turbo Pascal } 
for MSDOS } 


_— a 


METHOD 1: Pascal Bit-By-Bit } 

bit manipulation in a high-level-language } 
Simulation of “longhand" division } 

mostly for verification of other methods } 


“eS ee 


PROCEDURE crcittb( VAR a: INTEGER; databit: BCOLEAN) ; 
{ single bit computation; simulate polydiv hardware } 
{ other Pascals can replace "a SHL 1" with "a + a™ } 
BEGIN 


IF databit = (a < 0) THEN 

a:=a Shl 1 
ELSE 

a := (a Shl 1) XOR $1021; t: CROS=CCITT +} 
END; { crceittb } 


PROCEDURE crcittby( VAR aa: INTEGER; d: INTEGER ); 
{ whole byte computation } 
VAR 
i: INTEGER; 

BEGIN 

dss. d- Shi 7; 

FOR i := 7 DOWNTO 0 DO 
BEGIN 
ad :=d Shl l; 
GFcitth( -aa, (4 <0)" )F 
END; 

END; { crcittby } 


{ METHOD 2: Pascal]. Fast Bit-By-Bit } 
{ eliminates procedure-call overhead in the loop } 
{ similar to most XMODEM cre implementations} 


PROCEDURE crcfbbb( VAR aa: INTEGER; d: INTEGER ); 
{ fast bit-by-bit whole byte computation } 
VAR 

i: INTEGER; 
BEGIN 
das= dishl 7> 
FOR i := 7 DOWNTO 0 DO 
BEGIN 
d.-t= a Shi. is 
IF ((d XOR aa) < 0) THEN 
aa := (aa Shl 1) XOR $1021 
ELSE 
aa := aa Shl 1; 
END; 
END; { crcefbbb } 


{ METHOD 3: Pascal Byte } 

{ process the data byte without loops } 

{ transportable within Turbo Pascal, and fairly fast } 

{ may be slower in Pascals without bit-shifting operations } 


PROCEDURE crcitta( VAR dx: INTEGER; data: INTEGER); 
{ dx := crcTransform( dx; data ) } 
{ polynomial = $11021 } 


{ FOR OTHER PASCALS: } 

{ Generate a Swap function "swap( x: INTEGER ): INTEGER" } 
{ probably “swap := (x * 256) + (x DIV 256) would work" } 
{ Lo(x) = x AND $OOff = x AND 255 } 

{ x Shr 4 = x DIV 16 } 

{2 Shi 2s -3-* 16>} 

{x Shi-'S) = x/* 132 +} 

BEGIN { crcitta } 

ax := Swap( dx ) XOR data; 

dx := dx XOR ( Lo(dx) Shr 4 ); 

dx := dx XOR (Swap(Lo(dx)) Shl 4) XOR (Lo(dx) Shl 5); 


END? {.creitta. } 
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{ METHOD 4: Pascal Table } 

{ pull changes from table, indexed by composite value } 

{ still faster, but requires the table, and filling the table } 
{ may be even faster, relatively, in another Pascal } 

{ a slower routine is fine to fill the table } 


VAR 
crctab: ARRAY[0..255] of INTEGER; 


PROCEDURE crctablu( VAR crcreg: INTEGER; data: INTEGER) ; 
BEGIN 
crereg := Swap(crcreg) XOR data; 
crereg := (crcreg AND $ff00) XOR crctab[ Lo(crcreg) ]; 
END; 


PROCEDURE initctab; 
{ use method 3 to init the table } 
VAR 
i: INTEGER; 
BEGIN 
FOR i := 0 TO 255 DO 
BEGIN 
crctab[i] := 0; 
crcitta( crctab[i]), i ): 
END; 
END; {initctab} 


{ METHOD 5: Machine Code Byte } 

{ method 3 in "Inline" machine code (MSDOS) } 

{ typically hidden away in an “Include” file } 

{ other Pascals may need to modify the stack interface } 


PROCEDURE mcrcitt1( VAR dx: INTEGER; data: INTEGER ); 
{ a := creTransform( dx; data ) } 
{ for MSDOS } 
{ polynomial = $11021 } 


BEGIN { mercittl1 } 


INLINE ( 
$c4/$7e/<dx/ { es:di := [bp +"dx"') } 
$26/$8b/$05/ { ax := [es:di] } 

{ dx := SWAP(dx) XOR data; } 
$86/$e0/ { ah <=> al } 
$33/$46/<data/ { ax := ax XOR [bp + "data"] } 
$89/$c2/ { dx := ax } 


{ dx := dx XOR ( LO(dx) SHR 4 ); } 


$d0/S$e8/ { al := al SHR 1 } 
$d0/S$e8/ { al := al SHR 1 } 
$d0/S$e8/ { al := al SHR 1 } 
$d0/S$e8/ { al := al SHR 1 } 
$32/$da0/ {dl == ai XOR al } 
{ dx := dx XOR ( (SWAP( LO(dx) ) SHL 4 ); } 
$88/$da4/ { ah := dl } 
$d0/$e4/ { ah := ah SHL 1 } 
$d0/$e4/ { ah := ah SHL 1 } 
$d0/$e4/ { ah := ah SHL 1 } 
$d0/$e4/ { ah := ah SHL 1 } 
$32/$f4/ { dh := dh XOR ah } 
{ dx := dx XOR ( ( LO(dx) ) SHL 5 ); } 
$88/$da0/ { -al: ¢= dl } 
$b4/$00/ { ah :=0 } 
$d1/$e0/ { ax := ax SHL 1 } 
$d1/$Se0/ { ax := ax SHL 1 } 
$d1/$e0/ { ax := ax SHL 1 } 
$d1/$e0/ { ax := ax SHL 1 } 
$d1/$e0/ { ax := ax SHL 1 } 
$33/$d0/ { dx := dx XOR ax } 


$26/$89/$15 { es:[di}] := dx 


~ 
~ 


END; { mcreittl } 


{ METHOD 6: Machine Code Table } 
{ here the stack parameter interface becomes significant } 
{ note the exchange notation "x :=: y" in the comments } 


PROCEDURE mecrcitt3( VAR dx: INTEGER; data: INTEGER ); 
{ a := crcTransform( dx; data ) } 
{ for MSDOS } 
{ polynomial = $11021 } 


BEGIN { mercitt3 } 
INLINE ( 
$c4/$7e/<dx/ 
$26/$8b/$15/ 


{ es:di := [bp +"dx"] } 
{ dx := [es:di] } 


{ dx := Swap(dx) XOR data; } 
$86/$d6/ {> Gh- es.d1 } 
$33/$56/<data/ { dx := dx XOR [bp + "data"] } 


{ bx := Lo(dx) SHL 1; dl := 0; 


} 
$31/S$db/ { bx := bx XOR bx } 
$86/$da3/ {*-bpi* s=s.dl 
$d1/$e3/ { bx := bx SHL 1 } 
{ @x :=.dax XOR crctab[ bx J]: } 


$33/$97/>crctab/ { dx := dx XOR [bx + “crctab"] } 
$26/$89/$15 { {[es:di] := dx Me 


END; { mercitt3 } 


(Continued on next page) 
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Productivity Tools from SCE 


© The Seid] Make Utility (SMK) is the most powerful make 
utility you can buy for MS-DOS. When changes are made to 
any program module, SMK will issue only those commands nec- 
essary and sufficient to rebuild the system. SMK uses a super 
fast, proprietary dependency analysis algorithm that analyzes 
all dependencies before rebuilding any files. SMK understands 
complicated dependencies involving nested include files, source, 
and object code libraries. A high-level dependency definition 
language makes setting up dependencies easy. It supports pa- 
rameterized macros, local variables, for loops, constants, include 
files, command line parameters, in-line and block comments, full 
pathname and directory support, and more! Works with most 
compilers, assemblers, and linkers. $99.95 


® The Seidl Version Manager (SVM) is a state of the art 
version control system for MS-DOS. It maintains a complete re- 


vision history of any text file, without duplication, and can re- 
build any previous version of the file. SVM has highly optimized 
compression routines included for large projects and archiving. 
Other features include: full pathname and directory support, 
wildcards, exception cases, on line help, typeset documentation, 
tutorial, automatic error recovery, and much more. SVM is ideal 
for all software and text development projects. No other version 
management system delivers the features, performance, and re- 
liability of SVM. $299.95 (Available in March) 


@ SMK+SVM together form an extremely powerful, fully in- 
tegrated set of productivity tools. $379.95 


SEIDL COMPUTER ENGINEERING 


1163 E. Ogden Ave., Suite 705-171 
Naperville, IL 60540 
(312) 983-5477 
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Write-Hand Man 


“Almost a Sidekick for CP/M” 
Ted Silveira—Computer Currents, Aug. 27, 1985 


“WHM is ingenious and works as intended” 
Jerry Pournelle, BYTE Magazine, Sept. 1985 (c) McGraw-Hill 


Now available for CP/M 2.2, CP/M 3.0 and ZRDOS! 


The convenience of Sidekick on your CP/M machine! Trigger 
Write-Hand-Man with a single keystroke and a window pops open 
to run desk accessories. Exit Write-Hand-Man and both the screen 
and program are restored. Use with any CP/M program and most 
any CP/M machine. Takes only 5K of memory. 


FEATU RES Notepad for quick notes 


Appointment calendar 
HEX calculator 


File and Directory viewer 
Quick access phonebook 
14 digit decimal calculator 


BONUS 


Add applications written by you or others! No other “Sidekick” 
lets you add applications. Dump screens, setup printers, 
communicate with other computers, display the date and time. 
Let your imagination run wild! 


$49.95 (California residents add tax), shipping included. COD 
add $2. Sorry, no credit cards or purchase orders. 30 day guarantee. 
Formats: 8 inch IBM, Northstar and most 5 inch (please specify). 


Write-Hand-Man only works with CP/M 2.2, ZRDOS and CP/M 3.0 
(please specify). Simple terminal configuration required. Not avail- 
able for TurboDOS. Compatible with keyboard extenders, hard 
disks, and other accessories. 


Poor Person Software 
3721 Starr King Circle 
Palo Alto, CA 94306 
415-493-3735 


Trademarks: Write-Hand-Man — Poor Person Software, CP/M—Digital Research, 
Sidekick—Borland International 
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CRC 
LISTING TWO 


(Listings continued, text begins on page 26) 


{ start of validation testing } 


PROCEDURE fultest( beg: INTEGER ); 


: ware io p 


compilers. 


The TC-50 subsystem ™ 
includes tape drive con- © 
troller, cables and docu- - 
mentation. All ODI 
products carry a 30 day 
unconditional money-back 
guarantee, and are war- 
ranted for one year, 

parts and labor. 


Ov and Data, Inc. 


_§644 Kearny Mesa Road 
_ San Diego, CA 92111 
__ Tel. (619) 571-5555 
Telex 754923 OVERLAND 


Also Available - 
_ XENIX tape 
- subsystems 
forthe 
IBM AT 
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RUN CP/M 80 ON IBM 
aE 


Now your IBM PC or compatible can access the vast library of CPM/80-2.2 soft- 
ware titles, and run them at lightning speed! Our revolutionary MICRUN/CPM 
non-emulating interface executes CP/M software on PC's by utilizing the power of 
NEC’s newest microprocessor, the V-20. The V-20/30 chip replaces your PC 
resident 8088 or 8086 microprocessor chip, thereby providing 8 bit processing 
ability and actually improving it’s 16 bit performance by up to 50%. If your PC is 
not already equipped with the NEC V-20 there is no problem. Simply purchase our 
MICRUN/CPM software package, and we will provide you with the V-20 chip for 
only $45 dollars. 


Features 


* Incredibly fast-up to 8 MHz * Includes disk transfer utility for 

* Ability to run CPM programs reading, writing, and formatting up 
in color to 70 different CP/M and MS-DOS 

* Cross sub-directory operations disks. 

* No expensive co-processor * 16 logical/physical drives 
board req. * Includes RS232 communications 

* Not an emulator program for transferring software to 

or from CPM system to PC. 


Supports 


Osborne*Kaypro*Zenith H-19*Televideo*Radio Shack*ADM3A*VT-52°* 
Visual 210 adds Viewpoint* Hazeltine Espirit & 1510* Plus many more 


ONLY $99.95 


Included in the above price: Interface software, disk transfer utility program, 
RS232 communications program, complete documentation. Not included is the 
NEC V-20 microprocessor chip which is available at a price of only $45 dollars. 


1-800-637-7226 = 


Orders only. 


Micro Interfaces Corporation 
6824 N.W. 169th Street 
Hialeah, Florida 33015 

(305) 823-8088 





Dealer Inquiries Invited 


Trademarks: CP/M (Digital Research, Inc.), |BM (IBM Corp), 





Circle no. 110 on reader service card. 
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CONST 
maxpass = 5; 
TYPE 
st40 = STRING(40]; 
passtype = ARRAY[ 1..maxpass ] of INTEGER; 


adi, pass: INTEGER; 
adr, adt: passtype; 


PROCEDURE overall( VAR a: passtype; t: INTEGER ); 
VAR 
x, en, loc: INTEGER; 
data: BYTE; 


BEGIN 
FOR pass := 1 to maxpass DO 
BEGIN 
x := adi; 
CASE pass OF 
1: en := beg; 
2: en := beg + 1; 
3: en := beg + 127; 
4: en := beg + 511; 
5: en := beg + 81; 
END; 
FOR loc := beg TO en DO 
BEGIN 


{ a source of data “random" enough for our purposes } 
{ is available in the program code area } 
data := MEM[ Cseg: loc ]; 

ane t OF 
: crcittby( x, data ); 
crcfbbb( x, data ); 
crcitta( x,.data ): 
: crctablu( x, data )+; 
: mercittl( x, data ); 
; mcrcitt3( x, data ); 

END; {case} 
END; 

a{pass) := x; 

END; 
END; {overall} 


Oy ee 


PROCEDURE pbin( value: INTEGER ); 


VAR 
i: INTEGER; 
BEGIN 
FOR i := 15 DOWNTO 0 DO 
BEGIN 
IF value < 0 THEN 
WRITE( ‘1' ) 
ELSE 
WRITE( 'O' ); 
value := value SHL 1; 


END; 
END; {pbin} 
PROCEDURE showres( s: st40 ); 
VAR 
errfound: BOOLEAN; 
BEGIN 
errfound := FALSE; 
WRITE( *M*J' a Se Dus 


FOR pass := 1 TO maxpass DO 
IF (adt{pass] <> adr[pass]) THEN 


BEGIN 
errfound := TRUE; 
WRITE( *M*J'Pass ', pass, ‘: CRC error.' ); 


WRITE( *M*J, 'Reference: '); pbin( adr[pass] ) 
WRITE( *M*J, ‘Under Test: '); pbin( adt[pass] ) 
END; 


we Fe 


IF NOT errfound THEN 
WRITE( ': No error.* ); 
END; {showres} 


BEGIN {fultest} 

WRITE( *M*J*J'BEGIN Validation Testing.' ); 
adi := -l; 

initctab: 


overall( adr, 1 ); 
WRITE( *M*J' Reference = crcittby (Pascal Bit-By-Bit).' ); 


overall( adt, 2 ); 
showres( ‘crcfbbb (Pascal Fast Bit-By-Bit)' ); 


overall( adt, 3 ); 
showres( ‘crcitta (Pascal Byte)' ); 


overall( adt, 4 ); 
showres( ‘crctablu (Pascal Table)' ); 


overall( adt, 5 ); 
showres( ‘'mcrcittl (Machine Code Byte)' ); 


overalil{ adt, 6°-).: 
showres( 'mcrcitt3 (Machine Code Table)' ); 


WRITELN( “*M*J°END Validation Testing.' ); 
END; { fultest } 
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{ start of timing } 


PROCEDURE timetest( loops: INTEGER ); 

{ organize the time testing of various routines } 

VAR ; 
a, b: timearty; 
i, x: INTEGER; 
by: BYTE; 
empty: REAL; { time for empty loops } 
calltime: REAL; { time for loops and empty procedure } 


PROCEDURE cremt( VAR dx: INTEGER; data: INTEGER); 
BEGIN 
END; 


PROCEDURE showtimedif( a, b: timearty: c: INTEGER ); 
{ display a line of time results } 
VAR 


dif, Noloop, NoloopNocall: REAL; 


BEGIN 

dif := timedif( a, b); 

Noloop := dif - empty; 
NoloopNocall := dif - calltime; 


WRITE ( 
Noloop:7:3, ‘ '‘, NoloopNocall:7:3,' ‘. 
Noloop * (1000.0 / c):7:3, ‘ ‘', NoloopNocall * (1000.0 / c):7:3 ); 


END; {showtimedif} 


BEGIN {timetest} 
calltime := 0.0; {the global} 
by := $a5; {your typical data byte} 


WRITELN ( 
“M*J*J'Turbo Pascal runs CRC-CCITT on 8088 under Bare MSDOS', 
“M* J! FOR ', loops, ' OPERATIONS; 7.16 MHz CLOCK 


(multiply by 1.5 for 4.77 MHz)' ); 


WRITE( “M*J'Empty loop: ‘' ); 
readhms( a ); 
FOR i := 1 TO loops DO 


readhms ( b )3 
empty := timedif( a, b); {the global) 
WRITE( empty:5:3, ' secs' ); 


WRITE( *M*J'Empty procedure in loop: ' ); 
readhms( a ); 
FOR i := 1 TO loops DO 

cremt( x, by ); 
readhms( b ); 
calltime := timedif( a, b ); {another global} 
WRITE( calltime:5:3, ' secs' ); 


WRITE( “*M*J' (procedure overhead alone = ', 
(calltime - empty) * (1000.0 / loops) :6:3, 
‘ msec each)' ); 


WRITELN ( 
om*s*s' ', loops:5, ' Uses (secs) 1 Use 
(msec)', 
“n*g* Procedure In Line Procedure In Line’ ); 
WRITE ( 
“M*J'Pascal Bit-by-Bit: r-}5 


readhms( a ); 

FOR i := 1 TO loops DO 
crcittby( x, by ); 

readhms( b ); 

showtimedif( a, b, loops ); 


WRITE { 
“M*J'Pascal Fast B-B-B: “23 
readhms( a ); 
FOR i := 1 TO loops DO 
crcfbbb( x, by ); 
readhms( b ); 
showtimedif( a, b, loops ); 


WRITE ( 
“M*J'Pascal Byte: * 43 
readhms( a ); 
FOR i := 1 TO loops DO 
crcitta( x, by ); 
readhms( b ); 
showtimedif( a, b, loops ); 


WRITE ( 
“M*J'Pascal Table: © de 
readhms( a ); 
FOR i := 1 TO loops DO 
crctablu( x, by ); 
readhms( b ); 
showtimedif( a, b, loops ); 


WRITE ( 
“M*J'Machine Code Byte: hy 
readhms( a ); 
FOR i := 1 TO loops DO 
mercittl( x, by ): 
readhms( b ); 
showtimedif( a, b, -loops ): 


WRITE ( 
“M*J'Machine Code Table: e+ 
readnhms( a ); 
FOR i := 1 TO loops DO 
mercitt3( x, by ); 
readhms( b ); 
showtimedif( a, b, loops ); 
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WRITELN; 
END; {timetest} 


PROCEDURE datatimes; 
{ data character times, for comparison } 
CONST 
rates: ARRAY[1..7]) of INTEGER = 
(. 1242 242 3465-2967 - 192.7. .384, “S76. ks 
VAR i: INTEGER; 
BEGIN 
WRITELN( *M*J*J'Character Times for Various Bit Rates: ' ); 
WRITE( *M*J' bits/sec char/sec msec/char'); 
FOR i := 1 TO 7 DO 
WRITE( “M*J, '':4, (100.0 * rates(i})):5:0, '':8, 
(10.0 * rates({i)):5:0, ‘'':8, 
(100.0 / rates({i)):5:3 ); 


WRITELN; 
END; {datatimes} 


BEGIN { main: crctime } 
WRITELN; 


ConOutPtr := OFS( bdosch ); {output through MSDOS} 
ownership; 

fultest( 100 ); 

timetest( 10000 ); 

datatimes; 


END. 


End Listings 





CP/TREE 


Tree-Structured Named Directories for CP/M 2.2 


¢ Transforms user areas into Unix-like directories 
® Provides Unix-like directory commands: 
CD, MKDIR, PWD, RMDIR, TREE 


© Includes a CCP replacement featuring: 
e Command and file search path. Use programs like 
WordStar from any directory! 
e Erase with query 
* Wildcard rename with query 


¢ Provides output redirection to disk file 
® Uses as little as Y2k RAM, never more than 2% k 
¢ A must for hard disks 
* Installs easily: requires no modifications to BDOS or BIOS 
* Requires standard CP/M 2.2 (not 3.0 or Apple), Z80, 
48k RAM 


$29.95 plus $4.00 s&h 


To order: Specify disk format (8" SSSD, NorthStar DD. Call for 
info on others.). MC, Visa, COD (add $1.90), check (delays 
shipping 2 weeks). MA residents add 5% sales tax. POs not accepted. 


Precise Electronics 
P.O. Box 339 

New Town Branch 
Boston, MA 02258 
tel: (617) 332-3977 


Apple® Apple Computer. CP/M® Digital Research. WordStar® 
MicroPro International. Z80® Zilog. Unix™ AT&T Technologies. 
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PASCAL POWERS 


LISTING ONE (Text begins on page 36) 


HIGH QUALITY 

SOFTWARE CP / M 
HiSoft has been selling Z80 CP/M software in 
Britain and Europe for over 4 years. Now we'd 


like to introduce you to our range of program- 
ming languages: 


HiSoft Devpac: Z.80 assembler/editor/ 















! 


{ POWERN. PLB #1.08 85-11-18 INTEGER POWERS OF REALS 


VOl LO8 85-11-18 presentation streamlining by DEH. 
LO3 update on 85-06-18 by DEH to eliminate one 
always-trivial multiplication by expanding 

on an idea of David Gries. 


debugger LOO created on 85-06-05 by Dennis E. Hamilton 
‘ C ‘ eae to answer a number of electronic requests 
HiSoft C: Kernighan/Ritchie for help with Pascal powers. } 
implementation ea 
HiSoft Pascal: fast, standard compiler tae 
All at S69 inclusive each. PowerN (x: real; {initial value: x0} 


n: integer {required exponent} ) 
These programs are also available for other : (neg 3 


Z80.machines including Timex 2068. 


Call or write for full technical details and 
press commentaries, or order from: 


Se HIiISOFT 
— SSH 180 High 
gh St. North 
Aa > Dae aust 
=e eo 01144 (582) 696421 i := abs(n); 
{x**ji = x0**abs (n) } 


Circle no. 134 on reader service card. while not odd (i) 


do begin ae div 2) ; x**i} 
DATA CONVERSION 


ne 
o--n 


ene 
tiratatatn odd(i) and r*x**(i-1) = x0**abs(n), 

TRANSFER DATA BETWEEN OVER End Listing One 

500 DIFFERENT COMPUTER SYSTEMS 


taking r*x** (i-1) = r upon reaching i = 1} 

while i <> 1 
do begin 

WORD PROCESSORS TOO LISTING TWO 

QUICK TURN-AROUND 

PRICES FROM $9 PER DISK Shite Ralainiaitek: 


Gee ** (4 div 2) = x**(i -— i mod 2)} 
CALL OR WRITE FOR YOUR {TPWRN.PAS #1.08 85-11-18 TEST POWERN.PLB CALCULATION OF POWERS 
FREE CATALOG 


x ¢@ sor fX%).7-4::= 1: shr-le 
vVO1l LO8 pretty-print update on 85-09-15 with tidier test output. 
PORT-A-SOFT 


until odd(i); 
{odd(i) and r*x**i = x0**abs(n) } 
Yr s= r*x; 
end; 
{finally i = 1 and r = x0**abs(n) } 
Lfi <6 
1 Of 
LO2 update on 85-06-20 by DEH to exhibit precision-maintenance 
an d Beene tec ca st a Tega “eee sg hg 
L created on 85-06- y Dennis E. Hamilton, just for 
555 S. STATE ST., SUITE #12 simple confirmation of POWERN's method. } 
P.O. BOX 1685, OREM, UT 84057 var i: integer {counter of trial exponents): 
801) 226-6704 p7: real {intermediate power of 7 to be checked}; 
ola oe eee eras at tH compar soon kate oe Gn) method}; 
: : rv7: real {value o use n showing precision loss}; 
RCT ea) Ga rae Pe ee out: text {file variable used for dhrect ten of output as needed}; 
'sJournal 
Dr. Dobb's journ 


I; 
{$I POWERN.PLB } {Vintage 1.00} 
{Include PowerN here by whatever method the Pascal system pupee rent 
Subscription 
Problems? 


The above $I pragmat, used with Borland International's Tur Pascal, 
No Problem! 


causes a copy of POWERN.PLB to be included at this point.} 
BEGIN {Testing the basic features of POWERN.PLB} 
Give us a call and we'll 


assign(out, 'CON:'); 
straighten it out. Today. 


:real {value of x0**n}; 


var i: integer {non-negative power of x remaining 
to be computed}; 
r: real {running intermediate-result value}; 


BEGIN {PowerN} 
if n=0 

then PowerN := x/x 
else begin {n <> 0} 









. 
’ 





then PowerN : 
else PowerN : 


end; 
END {PowerN = x0**n}; 





ee to a disk-file name when you want to capture the report in 
a file for comparison, uploading, etc. Implementation-dependent. } 
rewrite (out); 
writeln(out, 'TPWRN> #1.08 85-11-18 TEST OF POWERN FUNCTION RESULTS'); 
writeln (out); 

fe veetee rele eet ee es 2eee ete ee ee secre eee Ge nesta eee e eels 


} 
writeln (out, i (—1) **i p = 7**i (1/7) **-i - p', 
exp(i*ln(7)) - p'); 

writeln (out); 

ln7 := 1n(7.0)7 rv7 := 1.0/7.0; 


for 2'.se.0°t6. 17 
do ogee 
write(out, i :8, PowerN(-1,i) :11:0); 
p7 := PowerN(7.0,1i); 
{It is important to use a number that is prime to the floating-point 
radix. Although 5 is easier to check mentally, it doesn't show enough 
about accuracy when decimal arithmetic is used, as with Turbo-BCD. } 
write(out, p7 :16:0); 
write(out, PowerN(rv7,-i) - p7 :20:13); 
{Use the known-to-be-inexact reciprocal to show how errors magnify} 
writeln(out, mee se ear =-07- $21213)+% 
ee deviation of the inefficient exp(i*ln(7)} on the same basis} 
end; 
close (out); 
END. 


Outside California 
CALL TOLL FREE: 800-321-3333 


Inside California 
CALL: 619-485-6535 or 6536 
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TPWRN> MODIFIED #1.02 85-06-20 TEST OF POWERN FUNCTION RESULTS 
I (=i) **1 oe 7 Aet (LATS ARSED: eB exp(I*1n(7)) - p 


1 

Y 

49 

343 

2401 
16807 
117649 
823543 
5764801 
40353607 
282475249 
1977326743 


0 0.0 
-0.0000000000 146 
0000000000 582 -0.000000000 3492 
000000000 9313 -0.00000000 32596 
-00000000 74506 -0.0000000 298023 
-0000000 596046 -0.000000 3874302 
-000000 8344650 -0.00000 26226044 
-00000 57220459 -0.0000 362396240 
-0000 457763672 -0.000 1296997070 
-000 3662109375 -0.000 9155273438 
-00 29296875000 -0.0 126953125000 
-O 234375000000 -0.0 859375000000 
13841287201 1875000000000 -0. 6250000000000 
96889010407 - 3750000000000 -4, 2500000000000 
678223072850 11. 0000000000000 -58. 0000000000000 
4747561509900 80. 0000000000000 -400. 0000000000000 
1 33232930570000 640. 0000000000000 -1472. 0000000000000 
-1 232630513990000 4864. 0000000000000 -20224. 0000000000000 


SONU WHF OW ONAN WHE O 
rPOOCDDOOCOOCOCOOCCCOCOCO 


PRRPRPRRPRPR 


These results were obtained by assign(out, 'TPWRN.PRN') and compiling with 
POWERN.PLB #1.03. CP/M-80 Turbo Pascal version 3.00A was used. The neat 
file was then incorporated into this edition of TPWRN.PAS as part of final 
editing as a MicroPro WordStar document. (The WordStar edition is converted 
back to a verified compilable form by "printing" to disk and filtering out 
all printing-control information using a simple utility program.) The num- 
bers in the error columns have been doctored by addition of spacing to make 
the growth of differences easier to discern. 


Similar results should be obtained using MS-DOS, CP/M-86 and IBM PC 
versions of Turbo Pascal. Turbo-8087 should obtain better results in all 
columns because of the greater peeceescn maintained ered Turbo-BCD 
should also show improvements, with decreased pecs after the last column is 
either dropped or Seperate Poets for BCD ln() and exp() are obtained. 
(For Turbo-BCD and Turbo-8087 both, it is instructive to increase the number 
of decimal positions in the last two columns in order to see what error there 
is, however much smaller it turns out to be.) } 


(* end of TPWRN.PAS *) End Listings 


_THE CLOSEST THING TO COMMON LISP AVAILABLE FOR YOUR PC 


Bignums, for high precision arithmetic 
8087 support, for fast floating point 
Arrays, for multidimensional data 

| Streams, for device-independent i/o 
Packages, for partitioning large systems 
Characters, strings, bit-arrays 


RICH SET OF DATA TYPES 


FULL SET OF CONTROL PRIMITIVES 
flet, labels, macrolet, for local functions 

if, when, unless, case, cond, for conditionals 
Keyword parameters, for flexibility 

Multiple-valued functions, for clarity 

Flavors, for object-oriented programming 

Stacks, for coroutining 

Closures, for encapsulation 


! | LARGE COMPLEMENT OF FUNCTIONS 
Mappers, for functional programming 

format, for output control 

sort, for user-specified predicates 

Transcendental floating point functions 

String handling functions 

Over 400 functions altogether 


BOS 
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APPLICATION SUPPORT 
Save and restore full environments 
User-specified initializations 
Assembly language interface 


HARDWARE REQUIREMENTS 
8088 or 8086 CPU, MSDOS Operating System 
390K RAM or more 


‘IQCLISP 


9%’ diskettes 

and manual $300.00 
Foreign orders add $30.00 for airmail. 

U.S. Shipping included for prepaid orders. 


fa Integral Quality 
P.O. Box 31970 

Seattle, Washington 98103 
(206) 527-2918 


Washington State residents add sales tax. 
VISA and MASTERCARD accepted. 


EXTENDABILITY 

defstruct, to add data types 

Macros, to add control constructs 

Read macros, to extend the input syntax 
Extendable arithmetic system 
Customizable window system 


DEBUGGING SUPPORT 
step, for single-stepping 
trace, for monitoring 
break, for probing 
inspect, for exploring 
Flexible error recovery 
Customizable pretty-printer 


MSDOS INTERFACE 
Random access files 
Hierarchical directory access 


MSDOS calls 


DOCUMENTATION 


On-line documentation of functions 
apropos 
300-page indexed reference manual 
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We will do whatever 
it takes to make 
DSD86 the best 

available 

for the IBM PC. 





For starters, we have by far the best 
design, a superior base to build from. 
While the competition adds new 
“modes’ for every feature, we have a 
pure, consistent and expandable 
design. While the competition forces 
you to accept their particular philosophy, 
we offer maximized flexability. If you 
already have a debugger or are looking 
for your first, look no further because 
you cant do any better. We invite you to 
compare our debugger, DSD86, with 
any other on the market. 
Se Se ee oe 


® Recursive Command Macros & Files # 
& Bind Macros to any key @ 
® Multi-segment Symbol Support @ 

& Symbolic Register & Stack Displays @ 
# User Customizeable Screen Layout @ 
& Superior Mode-less Design & 
® Source Window for MS Languages 
# User Writable Commands & Displays @ 
& Fast Screen Update @ 

& Unique Breakpointing Facilities a 
& 30 Day Money Back Guarantee @ 

a 
Call or write for our free report on truly 
advanced debugging technology which 
explains DSD86's design and why it is 
superior to the debugger you are 
currently using. 


Take the DSD challenge: secure a 
money back guarantee with any of our 
competitors. Buy both debuggers and 

use them for a month. Send the one 
you like least back for a refund. 


Only $69.95! 


Soft Advances 
P.O. Box 49473 
Austin, Texas 78765 
512-478-4763 


‘Programming for Productivity and Profit’ 
Please inciude $4 shipping 
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LISTING ONE (Text begins on page 42) 


LISTING 1 -— Draw Poker Program written in Ada 


begin 
Spen | New (STOCK) ; 


op 
put ("How many dollars do you want to bet? "); get (WAGER); 
exit when WAGER = 0; 
Shuffle (STOCK) ; 
Open New (PLAYERS HAND) ; 
for. 3. an 5 Ioo re 
Deal A _Card (PLAYE S HAND, STOCK) ; 
end 106 
poe (cee BRS | HAND) ; 
ie From (PLAYERS __HAND) ; 
0° 
exit when Filled(PLAYERS HAND) ; 
Deal A Card(PLAYERS HAND, STOCK); 
end loop; 
ut (PLAYERS HAND) 
ALUE := Value NOE (PLAYERS _ HAND) ; 
case VALUE is 
when ROYAL FLUSH => PAYOFF := 250; 
when STRAIGHT FLUSH => PAYOFF := 50; 
when FOUR OF A KIND => PAYOFF := 25; 
when FULL HOUSE => PAYOFF := 6; 
when FLUSH => PAYOFF := 5; 
when STRAIGHT => PAYOFF := 4; 
when THREE OF A KIND => PAYOFF := 3; 
when TWO PAIR => PAYOFF := 2; 
when others => PAYOFF := 0; 
end case; 
if PAYOFF = 0 
then put line("Sor y, you lose."); 
else put{"You have ");put (VALUE) ;put ("!") ;new 
put ("You win"); tO WAGER™PA OFF) ; put “tone ‘ @aitarat"}s 
end if; 
end ay Ee 
end Draw Poker; 


LISTING TWO 


ie err ra eS ee Se ee 


LISTING 2 - The general form of a procedure 
procedure *1 is 
2 
begin 
¥3 
exception 


end *5; 


LISTING THREE 


LISTING 3 - The Open_New procedure 


procedure Open New(DECK : out Decks) is 
i : integer T= 0; 
CARD : Cards; 
begin 
or S§ in Suits loop 
for R in Ranks loop 
CARD.SUIT := S; 
CARD.RANK := R; 


i s= itl; 
DECK. FAN (i) := CARD; 
end loop; 
end loop; 
DECK.CARDS LEFT := 1; 
if i /= CARDS_IN |" DECK then raise DECK _ERROR; end if; 
exception 
-- CONSTRAINT ERROR or DECK ERROR ag | be raised by this 
-- procedure If the number Of cards in a deck does not 
-- equal the number of cards generated. 
when DECK ERROR | CONSTRAINT ERROR => 
raise DECK_ERROR; -- convert all errors to DECK ERROR; 
end Open New; a 


LISTING FOUR A 


Listing 4 (Part A) - PLAYING CARDS package specification 


CARDS.ADA 
—_ 19 JULY 1984 
ao DO-WHILE JONES 


package PLAYING CARDS is 


CARDS IN DECK : constant integer := 52; 
CARDS_IN_HAND : constant integer := 5; 


DECK ERROR : exception; -- raised by Open New 
DECK EXHAUSED : exception; -- raised by Deal~A Card 
HAND FULL : exception; -- raised by Deal”A Card 
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End Listing One 


End Listing Two 


End Listing Three 


oe ee ee 


type Suits is (CLUBS, DIAMONDS, HEARTS, SPADES); 


type Ranks is (TWO, THREE, FOUR, FIVE, SIX, SEVEN, EIGHT, NINE, TEN, 


JACK, QUEEN, KING, ACE) ; 


type Cards is 
record 
SUL? <. Suits; 
RANK : Ranks; 
end record; 


type Fans is array(integer range <>) of Cards; 
type Status is array(integer range <>) of boolean; 
type Decks is 
record 
CARDS LEFT : integer; 
FAN ~— : Fans(1..CARDS IN DECK); 
end record; “Par 


type Hands is 
record 
: Status(1..CARDS IN HAND); 


: Fans(1..CARDS IN HAND); 
end record; io om 


function Card Number (X : integer; HAND : Hands) return Cards; 
function Playéd Card Number(X : integer; HAND : Hands) return boolean; 


function Suit of (CARD : Cards) return Suits; 
function Rank_of (CARD : Cards) return Ranks; 


procedure put (SUIT : Suits); 
procedure put (RANK : Ranks); 
procedure put (CARD : Cards); 
procedure put (HAND : Hands); 


procedure Open New(DECK : out Decks); -- create a new deck 


procedure Shuffle (DECK ;: in out Decks); -- shuffle a deck 


procedure Open New(HAND : out Hands); -- create a new hand 


procedure Sort 
procedure Discard From(HAND : in out Hands); 


: in out Hands); -- sort by rank, ignore suits 


function Filled(HAND : Hands) return boolean; -- is the hand full? 


procedure Deal A Card(HAND : in out Hands; DECK : in out Decks); 


end PLAYING CARDS; 





End Listing Four A 


(Continued on next page) 





WINDOWS FOR DATA’ 





Featuring One-Step Data Entry* 


Now you can code fast, powerful data 
entry windows, improve user 
convenience - reduce input errors. 


All the power, convenience and 
flexibility of the #1 window utility for 
the IBM PC. Our WINDOWS FOR C™ 
combined with a professional ‘window- 
based data entry system. 


Complete control over screen display 
and entry of data within a convenient 
flexible window environment. 


WINDOWS FOR C WINDOWS FOR DATA 
(Includes WINDOWS FOR C) 


PCDOS $ 195 $ 295 
PC/XENIX $ 395 $ 595 
UNIX CALL CALL 


WINDOWS FOR DATA™ provides versatile, 
easy-to-use data entry functions that operate 
within windows. 


CAPABILITIES INCLUDE: 


= Pop-up data entry windows 

= Multiple field types 

# Data validation functions 

= Field-specific & context-sensitive help 

= Lotus-style menu design 

= Single field entry option 

= Date, time and string utilities 

= Dynamic control of data-entry 
environment 


® User input to data-structure variables 


without intervening code. 


Vermont 


Creative 
Software 


21 Elm Ave. 
Richford, VT 05476 
802-848-7738, ext. 31 


Full source available. Master Card & Visa accepted. Shipping $ 3.50. VT residents add 4% tax. 





Circle no. 157 on reader service card. 
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Users’ 
Group 


Over 75 volumes of public 
domain software including: 


compilers 
editors 
text formatters 
communications 
packages 
¢ many UNIX-like tools 


Write or call for more details 


The C Users’ Group 
Post Office Box 97 
McPherson, KS 67460 
(316) 241-1065 
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Advanced 
Trace8s6" 


Symbolic Debugger & Assembler Combo 


Full-screen trace with single stepping; 
Even backstepping! 


Write & Edit COM & EXE programs 
Conditional breakpoints (programmable) 


Switch between trace and output screen; 
Or set up two monitors 


¢ 8087, 80186, 80286, 80287 support 
° Write labels & comments on code 
¢ Polish hex/decimal calculator 
° Priced at $175.00 


To order or request more information contact: 


and more... 


y Morgan Computing Co., Inc. 


2520 Tarpley Rd. Suite 500 


(214) 245-4763 Carrollton, TX 75006 
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UNIVERSAL 
CROSS-REFERENCER 


it works witH ALL 


LANGUAGES 


BASIC, C, PASCAL, FORTRAN, COBOL, 
ASSEMBLER, dBASE ... you name it. 


IT HANDLES standard languages, 


extended languages & exotic languages. 


IT CONFIGURES to your com- 


piler, interpreter, or assembler — ALL 
BRANDS — ALL VERSIONS. 


INTRODUCTORY $39 95 


PRICE 
$3.00 S/H - MC/Visa/Check - 6% Texas Sales Tax 
For the IBM PC, XT & compatibles. DOS 2.0+ 


DALSOFT SYSTEMS 
3565 High Vista - Dallas, TX 75234 
(214) 247-7695 
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ADA 


LISTING FOUR B (Listing continued, text begins on page 42) 


LISTING 4 (Part B) - PLAYING CARDS package body 


~- CARDB.ADA 

a 19 JULY 1984 
-- DO-WHILE JONES 
with CON IO; use CON_IO; 

with APL? use APL; 


pa 


ckage body PLAYING CARDS is 
CONSTRAINT ERROR : 
function Card Number (X : 


exception; -- required only by Maranatha A 


integer; HAND : Hands) return Cards is 


begin 


return HAND.FAN (X); 
end Card Number; 


eo Played Card Number(X : integer; HAND : 
gin 

return HAND. PLAYED (X) ; 
end Played Card Number; 


function Suit of (CARD : 
begin a 

return CARD.SUIT; 
end Suit of; 


function Rank_of (CARD : 
begin 

return CARD.RANK; 
end Rank of; 


Hands) return boolean is 
Cards) return Suits is 
Cards) return Ranks is 


rocedure put (SUIT : Suits) is 
egin 
case SUIT is 

when CLUBS => put ("CLUBS"); 


when DIAMONDS => put ("DIAMONDS") ; 


when HEARTS => put ("HEARTS") ; 
when SPADES => put ("SPADES") : 
end case; 
end put; 


on put (RANK : Ranks) is 


case RANK is 


when TWO => put ("TWO"); 
when THREE => put ("THREE"); 
when FOUR => put ("FOUR"); 
when FIVE => put terena eh 
when SIX => put ("SIX"); 
when SEVEN => put ("SEVEN") ; 
when EIGHT => put ("EIGHT"); 
when NINE => put ("NINE"); 
when TEN => put ("TEN"); 
when JACK => put ("JACK") ; 
when QUEEN => put ("QUEEN"); 
when KING => put ("KING") ; 
when ACE => put ("ACE"); 

end case; 

end put; 

procedure put (CARD : Cards) is 
RANK : Ranks; 
SUIT. 3Sarces 

begin 
put (Rank_of (CARD)); put(" of "); put (Suit_of(CARD)); 

end put; 

Hands) is 


sie apa put (HAND : 


for i in 1..CARDS IN HAND loop 
if Played Card Number (i,HAND) then 
auth -= don't display a card that isn't there 
else 
put (Card Number (i, HAND) ); 
put(" ")y; -- separate cards with two blanks 
ent if: 
end loop; 
new line; 
end put; 


procedure Open_New(DECK : out Decks) is 


: integer t= 0; 
CARD : Cards; 
begin 


for S in Suits loop 
for R in Ranks loop 

CARD.SUIT := S; 

CARD.RANK := R; 


1: ¢= 34733 
DECK. FAN (i) := CARD; 
end loop; 
end loop; 
DECK.CARDS LEFT := i; 


if i /= CARDS IN | DECK then raise DECK_ERROR; end if; 
exception 

-- CONSTRAINT ERROR or DECK ERROR Bay be raised by this 

-- procedure If the number of cards in a deck does not 

-- equal the number of cards generated. 

when DECK ERROR | CONSTRAINT ERROR => 
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raise DECK_ERROR; -- convert all errors to DECK_ERROR; 
end Open New; 


procedure Shuffle(DECK : in out Decks) is 
SEQUENCE : Random | Sequence (1. »-CARDS IN DECK); 
TEMP s “DECKS? 
begin 
EMP .CARDS LEFT := CARDS IN DECK; 
SEQUENCE := Deal (CARDS IN DECK, CARDS_IN DECK); 
for 2+ in' i. ; CARDS IN DECK loop 
= DECK. FAN (SEQUENCE (i337 


end Shuffle; 


procedure Deal A Card(HAND : in out Hands; DECK : 
X : integer T= 0; 
begin 
-- find an empty slot in the hand 
loop 
x ¥= X+1Lz7 
if X > CARDS IN HAND then raise HAND FULL; end if; 


exit when Played Card Number (xX, HAND) > 

end loop; 

-- draw a card from the deck and put it in the empty slot 

if DECK.CARDS LEFT < 1 
then raise DECK EXHAUSED; 
re: DECK.CARDS LEFT := DECK. CARDS _ LEFT-1; 

en 

HAND. FAN (X) := DECK.FAN (CARDS IN DECK - DECK.CARDS LEFT) ; 

HAND. PLAYED (X) := FALSE; 

end Deal A Card; 


procedure Sort (HAND : 
SORTED : boolean; 
TEMP ; Cards; 


in out Hands) is 


in 1..CARDS IN HAND loop 


in out Decks) 


if Rank of (Card Number (1, ae > Rank_of (Card Number(i+1, HAND)) then 


TEMP t= Card Number (i, 
HAND. PAN (1) Card Number (i+1, HAND) ; 
HAND {PAN (i+1) := TEMP; 
SORTED := FALSE; 
end if; 
end loop; 
exit when SORTED; 
end loop; 
end Sort; 


SUPER-CHARGE 


[ your directories 
for only $39.95 








Say goodbye to path names and unleash the 
full power of DOS on your IBM Personal 
Computer. With SuperPATH™ from Martin 
Scot, you can run any program from any 
directory, from any disk, anytime. 


SEE THE BIG PICTURE. 

Tired of playing hide and seek with your files? 
SuperPATH tells you where your files are, 
instantly. Anywhere on your disk. 


EXPLOSIVE PERFORMANCE. 
Program your directories. To display just the 
files you want to see, in any format, sorted or 
double sorted. To set up your keyboard macros 
for each new directory you enter. To back up 
your files automatically when you leave a 
directory. 
Or, you can use SuperPATH's batch building 
option to create your own file management 
utilities. 


NO RISK. 
Comes with a 30 day money-back guarantee. 


CALL (206) 527-9605 to order SuperPATH. 
MARTIN SCOT 


4515 Purdue N.E. Seattle, WA 98105 
2 GE GEE GS GEE SEES 


CET TE? Ce Ge De SR ~S a 
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GRAF 3.0 


(Continued on next page) 


$49 % | 
the complete CP/M-80 


BUSINESS and SCIENTIFIC 


printer graphics program 


569” 


MS-DOS / PC-DOS 


@ display floating point data directly 
from spreadsheets, data bases, 
word processors, and 
programming languages (or the 
keyboard) in a wide variety of 
bar, pie, line, and scatter plots 


@ plot and group up to 6 different 
variables on a single graph, 
distinguished by up to 14 
different fill-in patterns and 8 
different point-plotting symbols 

@ add up to 5 different-density grid 

®@ menu driven operation supports lines, and choose from a wide 
automatic graph scaling, labeling, variety of numerical labeling 
and legend creation options 


Square Wave Approximation 


OQ. 0000 


x axis 


GRAF 20 Update Policy: Returning your original GRAF 2.0 disk to MSC entitles you to $20.00 off the 
above prices. 


TERMS: We ship via first class mail. The above prices include domestic shipping and handling. Orders outside 
USA require additional $5.00 for postage. N.Y. residents add state sales tax. When ordering you MUST state your 
computer and printer make and Pode We support MS-DOS (PC-DOS) version 20 or later on computers with at 
least 192k RAM, and CP/M-80 version 2.2 or later on Z80 computers (other than modified Apples) supporting a 
TPA of at least 54k (requires 64k of RAM). Most soft-sector disk formats are available. (If you can read several 
formats, please send us a list.) GRAF 3.0 works with any printer fully compatible with one of the following: Epson 
FX, RX, LX, MX (with GRAFTRAX), or LQ-1500: C. Itoh Prowriter; NEC 8023A: Star Micronics Gemini 10X, 15X 
SG-10. SG-15: IBM Graphics Printer; Okidata 192, and earlier Okidata models equipped with the “IBM Plug ° n’ 
Play” chips. (If you have an Okidata printer, other than the 192, the Plug ‘n’ Play ehigs are required!) 


—— MSC 


Port Jefferson Station 


Microcomputer 
Systems 
Consultants 


27 Forest Avenue New York 117761820 
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ADA 


LISTING FOUR B (Listing continued, text begins on page 42) 





Tree Shell 
in 
ae 





A Graphic 


ee Open_New (HAND : out Hands) is 


n 
top i in 1..CARDS IN HAND ae 
HAND.PLAYED (i) = TRUE; -- hand is empty (all cards have been played) 
end loop; 
end Open New; 










See Us At 


9 U | 
The international Conterence of UNIX Users 


February 4-7,1986 
Anaheim Convention Center 


procedure Discard From(HAND : in out Hands) is 
RESPONSE : character; 
begin 
or i in 1..CARDS IN HAND loop 
put ("Do you want to discard the "); 
put (Card Number (i, HAND)); 
put (7s: -€F/N) '*).s 
ec eeenone) new line; 
f RESPONSE = 'Y' Or RESPONSE = 'y' 
then HAND.PLAYED (i) := TRUE; 
end if; 
end loop; 
end Discard From; 


5. 


Cols Neve 


“A Higher Form of Software” 
24000 Telegraph Road 
Southfield, MI 48034 





pes Filled (HAND : Hands) return boolean is 
n 
ts i in 1..CARDS IN HAND loop 


(313) 352-2345 if Played Card Number (i, HAND) then 
TELEX: 386581 COGITATE USA eure FALSE; -- if any card is played, hand is not filled 
en : 
Circle no. 81 on reader service card. end loop; 
return TRUE; -- if no cards played, hand is filled 


end Filled; 


ICs; PROMPT DELIVERY!!! ] | ena ptayine carps; 


SAME DAY SHIPPING (USUALLY) End Listing Four B 


OUTSIDE OKLAHOMA: NO SALES TAX 


V20 CPUwUPD70108D-8 $16.00 LISTING FIVE A 


8087-2 Math Coprocessors 140.00 
DYNAMIC RAM 

256K 64Kx4 150ns $4.75 

256K 256Kx1 120ns 3.25 


$64.46 


LISTING 5 (Part A) - APL package specification 





= 
D4 
S " 
s 8 Zw 
oe es 
—O o) Sy 
pen pe ie APLS.ADA 
pe 86128K = 128Kx1 150 ns 3.50 iva om DO-WHILE JONES 
cae 664K 16Kx4 150 ns 2.75 a 
< es 
em 64K 64Kx1 150 ns 1.00 ay This package simulates some APL functions. 
Oo or 
TE EPROM oie -- Roll (X) returns a random integer in the range 1..X. 
LO pai 
pe ee 32Kx8 oe ns cee Es ae Deal (X,Y) returns a random sequence of X elements all 
a=) 32Kx8 250 Ns he os of which are in the range 1..Y. No element appears 
a 27C64 8Kx8 200 nS 3.75 es twice in the random sequence = 
es Xx a BD = cate * 
Tac 82764 8Kx8 250 ns 2.50 ie 
xr xX : eo 
ackage APL is 

SE STATIC RAM mm | Peeneg 

Mim 6264LP-158kxs8 150ns $2.99 ns pe ees is integer age Pe eee REEL 

-- The above line is not required in Ada. 
OPEN 7 DAYS: WE CAN SHIP VIA FED-EX ON SAT. -- (It is required for Maranatha A.) 
MasterCard/VISA or UPS CASH COD Oak a: 

Sern Factory New, Prime Parts uP oo type Random_Sequence is array(positive range <>) of positive; 

noses | MICROPROCESSORS UNLIMITED, INC. function Roll (LIMIT : positive) return positive; 

SeCEIED sy | 24,000 S. Peoria Ave., (918) 267-4961 q ; 

eee Pe eee function Deal (NUMBER, LIMIT : positive) return Random Sequence; 

Prices shown above are for Dec. 2, 1985 ¥ 

sone ets dd spe anata an cin ioe On toe oe Coe end APL; 
reg abt Oroers recoves by § PM CS can usualy Be cevered io you by the next End Listing Five A 
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LISTING FIVE B 


LISTING 5 (Part B) - APL package body 


TOTAL HECALLI 
FOR $104.95 3 6 


Now you can retrieve everything 
you entered during program 
development -- from version 
one thru all updates. SRMS 
does it with a complete 
source utility at an af- 
fordable price. 

You can retrieve specific 
versions of a program, 
make changes and rein- 
state the source while 
recording when, why and 





—e APLB.ADA 
== 20 JULY 1984 
nee DO-WHILE JONES 





-- This package simulates two APL functions. 


-- Note: Roll uses the RND function which returns a random 
-- real number between 0.0 and 1.0. The RND function is 
a implementation specific to Maranatha A. 


package body APL is 


function Roll (LIMIT : positive) return positive is 
RANDOM : float; 


where changes were made. begin . : 

1 RANDOM := float (LIMIT) *RND(0.0); -- RND is implementation specific. 
All versions are stored ina return positive (RANDOM+0.5) ; 
single library without dupii- end Roll; 


cation of common code or 
text -- saves disk space. You can also store comments 
specific to each version -- provides complete develop- 
ment history and documentation of the program. 
SRMS supports recall and edit of programs written in 
BASIC, FORTRAN, PASCAL (including Turbo Pascal), 
C and ASSEMBLY CODE. 


Requires MS or PC DOS, Version 2 and up with 128K 
and one disk (floppy or hard). 


function Deal (NUMBER, LIMIT : positive) return Random Sequence is 
MAX : positive := LIMIT; _ 
RS : Random Sequence (1..NUMBER) ; 
SOURCE : Random Sequence (1..LIMIT); 
RANDOM INDEX : positive; 
begin ot 
or 1 in/:i.. LIMIT ‘loop 
SOURCE (i) := i; -- SOURCE has one of every number 
end loop; 


7048 Stratford Road 


Quilt Computing woodbury, MN 55125 
(612) 739-4650 
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for i in 1..NUMBER loop 
RANDOM INDEX := Roll (MAX); 
RS (i) t= SOURCE(RANDOM INDEX); -- pick a random number from SOURCE 
for j in RANDOM INDEX. .MAX-1 loop 
etd := SOURCE (j+1); -- remove that number from the SOURCE 
end loop; 
MAX := MAX-1; -- there is now 1 less number in the source array 
end loop; 
return RS; 
end Deal; 


end APL; End Listing Five B 


LISTING SIX 


LISTING 6 - Complete Draw Poker program 


-- DPOKER.ADA 
a 19 JULY 1984 
“= DO-WHILE JONES 


with CON IO; use CON IO; 
with PLAYING CARDS; Use PLAYING CARDS; 
procedure Draw Poker is 


type Values is (NOTHING, TWO PAIR, THREE OF A KIND, STRAIGHT, 
FLUSH, FULL_HOUSE, FOUR_OF~A KIND, STRAIGHTIFLUSH, ROYAL FLUSH); 


STOCK : Decks; 
PLAYERS HAND : Hands; 
WAGER, PAYOFF : integer; 
VALUE : Values; 


rocedure put (X : Values) is 
egin 
case X is 
when TWO PAIR => put("Two Pair"); 
when THREE OF A KIND => put ("Three of a Kind"); 
when STRAIGHT => put ("a Straight"); 
when FLUSH => put ("a Flush") ; 
when FULL HOUSE => put("a Full House"); 
when FOUR OF A KIND => put ("Four of a Kind"); 
when STRAIGHT FLUSH => put("a Straight Flush"); 
when ROYAL FLUSH => put ("a Royal Flush"); 
when NOTHING => put("a losing hand"); 
end case; 
end put; 


function Value _of (HAND : Hands) return Values is separate; 


begin 
Open New (STOCK) ; 
FOOG 
put ("How many dollars do you want to bet? "); get (WAGER); 
exit when WAGER = 0; 
Shuffle (STOCK) ; 
Open New(PLAYERS HAND); 
for 7 inl -.«..3. Teap 
Deal A Card (PLAYERS HAND, STOCK) ; 
end loop; = 
put (PLAYERS HAND); 
Ree Eee nn ANDY 7 
oop 
exit when Filled(PLAYERS HAND); 
Deal A Card(PLAYERS HAND, STOCK); 
end loop; 
put (PLAYERS HAND) ; 
VALUE := Value Of (PLAYERS HAND); 
case VALUE is — . 
when ROYAL FLUSH => PAYOFF := 
when STRAIGHT FLUSH => PAYOFF : 
when FOUR OF A KIND => PAYOFF : 
when FULL HOUSE => PAYOFF := 6; 
when FLUSH => PAYOFF := 5; 
when STRAIGHT => PAYOFF := 4; 
when THREE OF A KIND => PAYOFF := 3; 
when TWO PAIR => PAYOFF := 2; 
when others => PAYOFF := 0; 
end case; 
if PAYOFF = 0 
then put line("Sorry, you lose."); 
else put ("You have ");put (VALUE) ;put ("!")znew line; 
put ("You win"); put (WAGER*PAYOFF) ; put_line(" dollars!"); 


end if; 
end loop; 
end Draw_Poker; st he . 
End Listing Six 
LISTING 7 - Value_of subprogram 
== VALUE.ADA 
-— 19 JULY 1984 
_— DO-WHILE JONES 
separate (Draw Poker); -- real Ada doesn't have a semicolon here 


function Value of (HAND : Hands) return Values is 


PATTERN : String(1..CARDS IN HAND-1); 
X : Hands; rep ae 


function Flush_in(HAND : Hands) return boolean is 
(Continued on next page) 
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Top 
Quality 
Programming 
Tools 
from the 
Developers 
of the 
TurboPower 
Utilities 








Turbo ’ 
EXTENDER 


Tired of fighting 64K Code and Data Segments? 
Bored while waiting for your 10,000 liner to Compile? 
Want to optimize those sluggish Overlays? 





LARGE CODE MODEL) 


Wri fe Turbo Pascal programs using all 640K of 





MSDOS memory, based on any number of separately 
compiled modules. Provides complete parameter 
passing using normal Pascal syntax. Heap and Data 
Segment are shared between all modules. No 
memory-resident kludges or unnatural parameter 
passing schemes. Comes with a utility which 
automatically converts your existing applications. 





LARGE DATA ARRAYS): 





Transparently access 1 and 2 dimensional arrays of 
any conceivable size and type. Four models support 
Normal RAM to 640K, Expanded memory (EMS) to 
2Meg, Virtual (Disk-based) to 30Meg, and sparse 
arrays like the most advanced spreadsheets. Comes 
with a fast full-screen array browser. 


MAKE FACILITY 


A Unix-like MAKE program that is optimized for 
the Turbo EXTENDER large code model. Rebuild 
multi-module programs with no wasted effort. 





OVERLAY ANALYST 





Perform Static and Dynamic analysis of overlayed 
Turbo programs. Determine sizes of all procedures 
in each overlay group. Monitor the running program 
to find the number of overlay reads, procedure calls, 
and the load address of all procedures. 


AND EVEN MORE! 





DISK CACHE can be incorporated in your program to 
speed up disk reads for data bases, overlays, et al. 
Multi-file full screen BROWSE works on any text file. 
Pascal ENCRYPTOR makes your source safe from 
prying eyes, improves compile speed 15-30% and 
leaves the code 100% functional. SHELL generator 
creates fast compiling shells of unexercised code. 





Two DSDD disks with complete Source Code, 
100 page printed manual, 30 day guarantee! 
Requires Turbo Pascal 3.0 if -~- \ 
and DOS 2.X or 3.X. Runs on 8 5 
IBM PC/XT/AT and compatibles. | 
Call for generic MSDOS support. \___ complete , 
Also get the TurboPower Utilities 
with the acclaimed Pascal Structure Analyzer 
Includes a Pretty Printer, Execution Profiler, and 
powerful Text and Command Automation Tools. 
With full source $95, executable only $55. 


an gun one ae ew wm enn > 








Credit Card Orders only call Toll-free 7 days per week 
(US)800-538-8157x830 (CA)800-672-3470x830 
PO, COD, Dealers, Questions, Brochures, call or write: 


[nee = 478 W.. Hamilton #196 
Lu ee Campbell, CA 95008 
ph. 408-378-3672 

gure M-F 9AM-5PM PST 
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Fatten 
Your Mac 
for $5.00 


Thanks to Macintosh owners 
everywhere, Dr. Dobb’s January 1985 
issue #99 was a runaway best-seller. 











Now, due to popular demand, the 
Doctor has reprinted the sought-after 
Fatten Your Mac article from the sold- 
out January issue. The article explains 
how you can pack a full 512K of 
memory into your system, and save half 
the cost by performing the upgrade 
yourself. 





To order: Enclose $5.00 for each copy 
with this coupon and send to: 


Dr. Dobb’s Journal, 2464 Embarcadero 
Way, Palo Alto, CA 94303 

Outside U.S., add $2.00 per copy for 
shipping & handling. 


Please send me copies of Fatten 
Your Mac. ALL REPRINT ORDERS 


MUST BE PREPAID. 

Name 

Address 

City Slate ID 


Please allow 6-9 weeks for delivery. 
3112G 
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ISTING SEVEN (Listing continued, text begins on page 42) 


begin 
or i in 1..CARDS IN HAND-1 loop 
if Suit of (Card Number (i, HAND)) /= Suit of (Card Number (i+1, HAND) ) 
then Yeturn FALSE; * a 
end if; 
end loop; 
return TRUE; 
end Flush_in; 


function Straight_in(HAND : Hands) return boolean is 


begetn 
or i in 1..CARDS IN HAND-1 loop 
if Ranks'pos (Rank of (Card Numeer (i, HAND) )}) 
/= Ranks'pos (Rank of (Card Number (i+1, HAND)))-1 then 
return FALSE; t "ahs 
end if; 
end loop; 
return TRUE; 
end Straight _in; 


begin 
X := HAND; -- make a copy of HAND so it can be sorted 
Sort (X) 7 


for i in 1..CARDS IN HAND-1 loop 
if Rank of (Card Number(i, X)) = Rank of (Card Number(i+l, X)) then 
PATTERN (i) := 'S'; -- adjacent cards have SAME rank 


else 

PATTERN(i) := 'D'; -- adjacent cards have DIFFERENT rank 
end if; 

end pee 2 

if Flush in(X) and Straight in(X) then 


if Rank of (Card Number(5, X)) = ACE then 
return ROYAL FLUSH; 
else 
return STRAIGHT FLUSH; 

end if; P: 

end if; 

if PATTERN = "SSSD" or PATTERN = "DSSS" then 
return FOUR OF A KIND; 

end if; A aRtaey a 

if PATTERN = "SSDS" or PATTERN = "SDSS" then 
return FULL HOUSE; 

end if; x 

if Flush in(X) then 
return FLUSH; 

end if; 

if Straight in(X) then 
return STRAIGHT; 

end if; 

if PATTERN = "SSDD" or PATTERN = “"DSSD" or PATTERN = "DDSS" then 
return THREE OF A KIND; 

end if; Maes 

if PATTERN = "SDSD" or PATTERN = “DSDS" or PATTERN = "SDDS" then 
return TWO PAIR; 

end if; ie 


return NOTHING; 


end Value of; 


End Listing Seven 


LISTING EIGHT 


LISTING 8 - Corrected Value _of subprogram 


VALUE2.ADA 
9 NOVEMBER 1984 
DO-WHILE JONES 


This revision recognizes that TWO, THREE, FOUR, 
FIVE, ACE is a straight (but not a royal flush). 


separate (Draw Poker); -- real Ada doesn't have a semicolon 
function Value_of (HAND : Hands) return Values is 


PATTERN : String(1..CARDS IN _HAND-1); 
X : Hands; i 


function Flush_in(HAND : Hands) return boolean is 


begin 
for i in 1..CARDS IN HAND-1 loop 
if Suit of (Card Number (i, HAND)) /= Suit of (Card Number (i+1, HAND) ) 
then Yeturn FALSE; Fy - 
end if; 
end loop; 
return TRUE; 
end Flush_in; 


function Straight in(HAND : Hands) return boolean is 
-- HAND must already be sorted for this procedure to work 


eyes 
f Rank of (Card Number (1, HAND 


))} = TWO and 
Rank of (Card Number (2,HAND)) = THREE and 
Rank of (Card Number (3,HAND)) = FOUR and 
Rank of (Card Number (4,HAND)) = FIVE and 
Rank of (Card Number (5,HAND)) = ACE then 


return TRUE; 
end if; 
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for i in 1..CARDS IN HAND-1 loo 
if Ranks'pos (Rank Of (Card N er (i, HAND)))} 
/= Ranks'pos(Rank of (Card Number(i+1, HAND)))-1 then 
return FALSE; Be ns 
end if; 
end loop; 
return TRUE; 
end Straight_in; 


begin 
X := HAND; -- make a copy of HAND so it can be sorted 
Sort (X) 3 


for i in 1..CARDS IN HAND-1 loop 
if Rank of (Card Number(i, X)) = Rank of (Card Number(i+l, X)) then 


oo := 'S'; -- adjacent cards have SAME rank 
else 
PATTERN(i) := 'D'; -- adjacent cards have DIFFERENT rank 
end if; 
end loo 


if Flush in(X) and Straight in(X) then 
if Rank of (Card Number (4, X)) = KING then 
return ROYAL FLUSH; 
else ", 
return STRAIGHT FLUSH; 
end if; = 
end if; 


if PATTERN = "SSSD" or PATTERN 
return FOUR OF A KIND; 
end if; ae =f goa 


if PATTERN = "SSDS" or PATTERN = "SDSS" then 
return FULL HOUSE; 
end if; a“ 


if Flush in(X) then 
return FLUSH; 
end if; 


if Straight in(X) then 
return STRAIGHT; 
end if; 


ll 


"DSSS" then 


if PATTERN = “SSDD" or PATTERN = "DSSD" or PATTERN = "DDSS" then 
return THREE OF A KIND; 
end if; sane gee rae 
if PATTERN = "SDSD" or PATTERN = "DSDS" or PATTERN = "SDDS" then 
return TWO PAIR; 
end if; ¥ 
return NOTHING; 
end Value of; End Listings 


C-PROGRANMERS 





File System Utility Libraries 


All products are written entirely in K&R C. Source 
code included, No Royalties, Powerful & Portable. 


75.00 


® High speed random and sequential access. 
¢ Multiple keys per data file with up to 16 million records per file. 
¢ Duplicate keys, variable length data records. 


40.90 


® Greatly speeds application development. 
e Combines ease of use of database manager with flexibility of program- 





Programming the oe aay diaspora ek Oe 
® ® upporns muiti Ke "Wes an namic index definition. 
65816 Microprocessor e > Very Shay tee,” : | 


including 6502 and 65C02 : 


/nnAEESenneE WEE 5S oo 


e Patterned after the UNIX utility. 
® Works for programs written in every language. 
¢ Full macros, File name expansion and built in rules. 


Full Documentation and Example Programs Included. 


ALL THREE PRODUCTS FOR — 149. oe 


For more information call or write: 1343 Stanbury Drive 
Oakville, Ontario, Canada 
L6L 2J5 
(416) 825-0803 








Credit cards accepted. Dealer inquiries invited. 


Circle no. 219 on reader service card. 
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MODULA-2 


LISTING ONE (Text begins on page 62) 


MODULE Sorter; 


(* Sorter utilizes modules RandomNumbers and Queues to demonstrate o 
(* the utility of data abstraction. 


FROM InOut IMPORT 
ClearScreen, 
WriteInt, 
WriteLn, 
WriteString; 


FROM RandomNumbers IMPORT 
(* PROC *) randu; 


FROM Queues IMPORT 
(* PROC *) InitPriorityQueue, 


QueueEmpty, 
Add, 
Fetch, 
(* TYPE *) PriorityQueue; 
VAR Count : CARDINAL; 
x : INTEGER; 
Q : PriorityQueue; 


BEGIN (* MAIN *) 
ClearScreen; 


InitPriorityQueue (Q); (* Initialize the Priority Queue Q *) 


(* Add 100 pseudo-random numbers to the Priority Queue Q *) 
FOR Count := 1 TO 100 DO 


Add(Q, randu()); 
END; 


(* Empty the Priority Queue Q and display each removed element *) 
WriteLn; 
WriteLn; 
WriteString ("Sorted Pseudo-Random Numbers....."); 
WriteLn; 
WHILE NOT Sere onions DO 
xX i= : 
WriteInt (x, 10); 
WriteLn 
END; 


END Sorter. tae 
End Listing One 


LISTING TWO 


DEFINITION MODULE Queues; 


EXPORT QUALIFIED 
(* TYPE *) PriorityQueue, 
(* PROC *) ear sae lee 


Fetch, i 
QueueEmpty; 


TYPE PriorityQueue; (* Opaque Type *) 


PROCEDURE Bshchgher tet Seder dl Q : PriorityQueue) ; 
(* Initializes the Priority Queue Q *) 


PROCEDURE Add(VAR Q : PriorityQueue; datum : INTEGER); 
(* Adds the data item to the Priority Queue Q *) 


PROCEDURE Fetch(VAR Q : PriorityQueue) : INTEGER; 
(* Fetches the smallest element from the Priority Queue Q *) 


PROCEDURE QueueEmpty (Q : PriorityQueue) : BOOLEAN; 
(* QueueEmpty RETURNs TRUE if PriorityQueue Q is empty; FALSE otherwise *) 


END Queues. 


DEFINITION MODULE RandomNumbers; 


EXPORT QUALIFIED 
(* PROC *) randu; 


PROCEDURE randu() : INTEGER; 
(* randu RETURNS a pseud0-random INTEGER *) 


END RandomNumbers. 
End Listing Two 


LISTING THREE 


IMPLEMENTATION MODULE Queues; 

FROM Storage IMPORT ALLOCATE, DEALLOCATE; 

TYPE PriorityQueue = POINTER TO PriNode; 
PriNode = RECORD 


data : INTEGER; 
link : PriorityQueue; 
END; 
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PROCEDURE InitPriorityQueue (VAR Q : 
BEGIN 
<= NIL 


Q 
END InitPriorityQueue; 


PROCEDURE Add (VAR Q : PriorityQueue; datum : INTEGER); 
VAR T : PriorityQueue; 


BEGIN 
IF QueueEmpty (Q) THEN 
NEW (Q) ; 
O* Link -s Wi 


Q* data := datum; 
ELSIF datum < Q*.data THEN 
NE 


PriorityQueue) ; 


WT); 
T* -link.s= OF 
T*.data := datum; 
Q:=T 
ELSE 
Add (Q*.link, datum) 
END; 
END Add; 
PROCEDURE Fetch(VAR Q : PriorityQueue) : INTEGER; 
VAR tempInt : INTEGER; 
tempQ : PriorityQueue; 
BEGIN 
tempQ := Q; 
tempint s= Q*.data; 
Q := %. link; 


DISPOSE (tempQ) ; 
RETURN tempInt 
END Fetch; 
PROCEDURE QueueEmpty (Q : 
BEGIN 


RETURN Q = NIL 
END QueueEmpty; 


END Queues. 


PriorityQueue) : BOOLEAN; 


IMPLEMENTATION MODULE RandomNumbers; 
VAR x : INTEGER; 


PROCEDURE randu() : INTEGER; 
BEGIN 
:= (3 * x + 31) MOD 7; 
RETURN xX 
END randu; 
BEGIN 
x <= 73 


END RandomNumbers. —— 
End Listing Three 


LISTING FOUR 


IMPLEMENTATION MODULE Queues; 
FROM Storage IMPORT ALLOCATE, DEALLOCATE; 


TYPE PriorityQueue = POINTER TO PriNode; 
PriNode = RECORD 
data : INTEGER; 


link : PriorityQueue; 
END; 


PROCEDURE InitPriorityQueue (VAR Q : PriorityQueue) ; 
BEGIN 
Q := NIL 


END InitPriorityQueue; 
PROCEDURE Add (VAR Q : 


VAR T 
BEGIN 


PriorityQueue; datum : INTEGER); 
, Tl, NewNode : PriorityQueue; 


IF QueueEmpty (Q) THEN 
NEW (Q) ; 
O* .link == NIL¢: 
Q*.data := datum; 
ELSIF datum < Q%. data THEN 
NE 


(T) 3 
2” LAnk . t=. OF 
T*.data := datum; 
Qo 22 2 
ELSE 
T = 
pute’ ‘7 fa! & (datum >= T*.data) DO 
tL, 2= TF 
T §= 7* Link? 
END; 
NEW (NewNode) ; 
NewNode*.link := T; 
NewNode*.data := datum; 
T1*.link := NewNode; 
END; 
END Add; 
PROCEDURE Fetch(VAR Q : PriorityQueue) : INTEGER; 
VAR tempInt : INTEGER; 
tempQ : PriorityQueue; 
BEGIN 
tempQ : 
tempint = "on, data; 
Q := Q*. link 
DISPOSE (tempQ) ; 
RETURN tempIint 
END Fetch; 
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PROCEDURE QueueEmpty (Q : PriorityQueue) : BOOLEAN; 
BEGIN 


RETURN Q = NIL 
END QueueEmpty; 


END Queues. 


IMPLEMENTATION MODULE RandomNumbers; 


VAR x : INTEGER; 

PROCEDURE randu() : INTEGER; 

BEGIN 
x := (5 * x + 31) MOD 4096; 
RETURN x 

END randu; 

BEGIN 
x s= Te 


END RandomNumbers. 


End Listings 


RP/M2™ creates 


CP/M°2.2 compatible 


IBM PC 


1. Remove the 8088 

2. Install the NEC »PD70108 

3. Boot PC RP/M2 

MSDOS and CP/M 2.2 capability coexist in your IBM PC. 
The NEC #PD70108 CPU chip is a fast 8088 that can also 
execute 8080 machine code. PC RP/M2 is standard 2.2 
compatible RP/M2 with our CBIOS for the IBM PC. System 
disk with manual and NEC »PD70108 $129. Shipping $5 


($10 nonUS) HE @® 





118 SW First St. - Box G 
Warrenton, OR 97146 
(503)861-1765 


icro 
ethods, Inc. 
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8080 SIMULATOR 


LISTING TWO (Continued from January ) 


fullcy add.b #$60,rega 
ori #1,ccr 
enddaa move sr,regf 
swap regconfe 
and.w regconéf,regf 
move.b O(flagptr,regf.w) ,regf 
jmp (return) 
nofull tst.b rega 
bra enddaa 


nop28 bra illegl ; 28 Illegal for 8082 


dadh move.w regh(regs) ,d@ 
add.w d@,regh(regs) 
bra docyf 


; 29 Dad H 


lhld move.b 1(pseudopc) , dé ; 2A Lhld addr 
rol.w #8,d0 
move.b (pseudopc) , dé 
addq.1 #2,pseudopc 
move.l d@,aé 
adda.1 targbase,ad@ 
move.b (a@)+,regl (regs) 
move.b (a0) ,regh(regs) 
jmp (return) 


dcxh dec.w regh(regs) 
jmp (return) 


> cn Doe: H 


inrl inc.b regl(regs) ; 20 Inr L 
move sr,d@ 
and.w regconfe,d@ 
and.w regcon#1,regf 
or.b O(flagptr ,d@.w) ,regf 
jmp (return) 


dcrl dec.b regl(regs) 
move sr,d@ 
and.w regcon@e,d@ 
and.w regcon#1 ,regf 
or.b O(fliagptr,d@.w) ,regf 
jmp (return) 


; ap Der.L 


mvil move.b (pseudopc)+,regl (regs) 
jmp (return) 


- Ze fvi L,nn 


cma not.b rega ; oF Cma 
jmp (return) 

nop36 bra illegl ; 30 Illegal for 8082 

lxis move.b 1(pseudopc) , dé 
rol.w #8,d@ 
move.b (pseudopc) , da 
addq.1 #2,pseudopc 
move.1 d@,pseudosp 
adda.l targbase,pseudosp 
jmp (return) 


- 51: Lxi 3,nnnn 


sta move.b 1(pseudopc) , dd ; 52 Sta addr 
rol.w #8,da8 
move.b (pseudopc) , dé 
addq.1 #2,pseudopc 
move.b rega,@(targbase,d@.1) 
jmp (return) 


inxs addq.1 #1,pseudosp ; 35 Inx S 
jmp (return) 


inrm move.w regh(regs) ,d@ 
inc.b O(targbase,d@.1) 
move sr,da@ 
and.w regconfe, da 
and.w regcon#1,regf 
or.b O(flagptr,d@.w) ,regf 
jmp (return) 


; 34 Inr M 
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move.w regh(regs) ,d@ 35 Der 
dec.b O(targbase,d@.1) 

move sr,d@ 

and.w regconfe, dé 

and.w regcon®1,regf 

or.b @(flagptr ,d0.w) ,regf 


jmp (return) 









mvim move.w regh(regs) ,d@ 36 Mvi M,nn 
move.b (pseudopc)+,0(targbase,d@.1) 


jmp (return) 





stc bset #0,regf 37 Stc 


jmp (return) 





nop38 obra illegl 


dads move.1 pseudosp,d@ 39 Dad S 
sub.1 targbase, dd 
add.w d@,regh(regs) 


bra docyf 






lda move.b 1(pseudopc) ,d@ 3A Lda addr 
rol.w #8,d@ 

move.b (pseudopc) ,d@ 

addq.1 #2,pseudopc 

move.b O(targbase,d@.1),rega 


jmp (return) 







dcxs subq.1 #1,pseudosp 3B Dex S 


jmp (return) 





3C Inr A 


inra move.b rega,regop1 (regs) 
move.b regcon®1 ,regop2(regs) 
move.b regconfe,regop3 (regs) 
inc.b rega 
move sr,d@ 
and.w regcone,dé 
and.w regcon®1,regf 

or.b O(flagptr,d@.w) ,regf 









The First Idea-Processor For Programmers. 
FirsTime” Has features no other editor has. 


|] Fast program entry through single keystroke statement generators 

|| Fast editing through syntax oriented cursor movements 

(.] Dramatically reduced debugging time through immediate syntax checking. 

| | The error checking is thorough and includes semantics « Undefined variables, 

















types and constants ¢ Assignment statements with mismatched types 
* Errors in inciude tiles and macro expansions 





Automatic program formatter (you specify the rules) 
|| Split Screen editing 






Reading a file with errors moves cursor automatically to point of error 






| | Unique programmer-oriented features 






zoom command gives top-down view of program logic 
view macro command shows expansion of a C macro in the editor 










view/update include file allows you to view and update an include file 
transform command allows you to transform statements to related ones 
search for next error command 



























ay 


FirsTime for Turbo Pascal $ 74.95 






















To Order Call: (201) 741-8188 or write: 







SPRUCE TECHNOLOGY CORPORATION FirsTime for dBase III $125.00 
FirsTime for MS-Pascal $245.00 

id 7 \\ PO. Box 7948 FirsTime for C $295.00 
"a = Shrewsbury, NJ 07701 a A oe Ron et Me el 
sS Micrnsott Corporation © IBM is a trademark of International Business Machine ic 





s In 
© Turbo Pascalrs a tradema Borland International « dBase Ill 1s a trademark of Ashton Tate 





Circle no. 164 on reader service card. 
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38 Illegal for 8880 





















(Continued on next page ) 






COBOL DEVELOPERS 
PAY LESS FOR THE BEST 


™Level Il Cobol From Micro Focus 
Fully Featured, G.S.A., Certified 
Error Free 


™VS Cobol Workbench Fully inte- 


grated package suitable for IBM 
Mainframe Development. Supporting 
CICS andIMS Extensions ... Call Now 


Call (713) 342-5875 
For Free Catalogue 


The Cobol Shop 


Cobo! Products for Most Environments 
Best Prices, Best Support 
™ = Micro Focus Ltd. 


Circle no. 247 on reader service card. 
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8080 SIMULATOR 
LISTING TWO (continued from January ) 


jmp (return) 





jmp (return) 















» 3D Der -A 
















dcra dec.b rega moveba move.b rega,regb(regs) ; 47 Mov B,A 
move sr,d@ jmp (return) 
and.w regconfe,d0 
and.w regcon#1,regf movecb move.b regb(regs) ,regc(regs) ; 48 Mov C,B 
or.b O(flagptr ,d@.w) ,regf jmp (return) 
jmp (return) 
movecc move.b regc(regs) ,regc(regs) ; 49 Mov C,C 
mvia move.b (pseudopc)+,rega ; SE Mvi A,nn jmp (return) 
jmp (return) 
movecd move.b regd(regs) ,regc(regs) ; 4A Mov C,D 
cmc bchg #0,regf ; 3F Cme jmp (return) 
jmp (return) 
movece move.b rege(regs) ,regc(regs) - 4B Mov C,E 
movebb move.b regb(regs),regb(regs) ; 40 Mov B,B jmp (return) 
jmp (return) 
movech move.b regh(regs) ,regc(regs) ; 4C Mov C,H 
movebc move.b regc(regs) ,regb(regs) ; 41 Mov B,C jmp (return) 
jmp (return) 
movecl move.b regl(regs) ,regc(regs) ; 4D Mov C,L 
movebd move.b regd(regs),regb(regs) ; 42 Mov B,D jmp (return) 
jmp (return) 
movecm move.w regh(regs) ,d0 ; 4E Mov C,M 
movebe move.b rege(regs) ,regb(regs) ; 43 Mov B,E move.b @(targbase,d@.1),regc(regs) 
jmp (return) jmp (return) 
movebh move.b regh(regs) ,regb(regs) - 44 Mov B,H | moveca move.b rega,regc(regs) ; 4F Mov C,A 
jmp (return) jmp (return) 
movebl move.b regl(regs) ,regb(regs) - 45 Mov B,L | movedb move.b regb(regs) ,regd(regs) ; 5@ Mov D,B 
jmp (return) jmp (return) 
movebm move.w regh(regs) ,d@ ; 46 Mov B,M | movedc move.b regc(regs) ,regd(regs) ; 51 Mov D,C 


move.b @(targbase,d@.1),regb(regs) jmp (return) 
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$2.95 usa 


ustra: A $475 New Zealand NZ $ 650 
Singapore S $9.45 Hong Kong H $23 50 
Malaysia M $9.45 Sweden 30 -SEK 


INDUSTRIAL PASCAL 
FOR THE 68000 


you're looking for a language to write real-time pro- 
control software, look no further. With the rising 

st of labor, it is becoming critical that a high level lan- 
jJuage be used whenever possible. Find out why over 










68020 





































The Bible of the 


Serious User 


TheABC’s of Languages 
ADA-Basic- C 


Subscribe NOW and Receive FREE Reprints Previous (1-8) 


Continuous ADA Series offer exp. 2-15-86 


Hardware-Software-Application Articles 
New Product Releases-Announcements 
Hints-Kinks-Fixes, etc. 






Subscription Rates 
U.S.A: 1 Yr. $2450, 2 Yrs. $42.50, 3 Yrs. $64.50 
*Foreign Surface: Add $12.00 per Year to USA Price 
*Foreign Airmail: Add $48.00 per Year to USA Price 
*Canada & Mexico: Add $9.50 per Year to USA Price 


* U.S. Currency or Check or Draft Drawn on USA Bank !! 


= (615) 842-6809 Cj 
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68010 400 companies have switched to OmegaSoft Pascal for 

their demanding applications. 
JOURNAL 68000 OmegaSoft Pascal takes the Pascal framework and ex- 
68008 pands the basic data types, operators, functions, and 
Serving The 68XXX memory allocation to fit the needs of real-time systems. 
User Worldwide 6809 _ These additions fit in the same structure as Pascal and 


hance its usefulness without impairing the excellent 
_ readability, ease of maintenance, and structured design. 
_ The compiler package includes the compiler, interac- 
_ tive symbolic debugger, relocatable macro assembler, 
| linking loader, and screen editor. Source code is provid- 
ed for the debugger, screen editor and runtime library. 
_ Versions to run under the OS-9/68000 and VERSAdos 
operating systems are currently available to end-users 
and OEM's. End user price is $900 (domestic) or $925 
(international). A version for CP/M-68K is available for 
OEM use, with OEM versions for UNIX type operating 
systems to follow. 


1 M OmegaSolt is a trademark of Certified Software Corporation OS-9/68000 Is a tradematk 
of Microware VERSAdos is a trademark of Motorola. CP/M-68K is a trademark of DRI UNIX is 
a trademark of Bell Labs. 


CERTIFIED SOFTWARE CORPORATION 
616 Camino Caballo, Nipomo, CA 93444 
Telephone: (805) 929-1395; Telex: 467013 


Circle no. 209 on reader service card. 
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movedd move.b regd(regs) ,regd(regs) ; D2 Mov D,D 
jmp (return) 






movede move.b rege(regs) ,regd(regs) ; >> Mov D,E 
jmp (return) 







movedh move.b regh(regs) ,regd(regs) ; 54 Mov D,H 
jmp (return) 








moved! move.b regl(regs) ,regd(regs) ; 55 Mov D,L 
jmp (return) 






movedm move.w regh(regs) ,d@ ; 56 Mov D,M 
move.b @(targbase,d@.1),regd(regs) 
jmp (return) 





moveda move.b rega,regd(regs) ; 57 Mov D,A 
jmp (return) 







moveeb move.b regb(regs) ,rege(regs) ; D8 Mov E,B 
jmp (return) 








moveec move.b regc(regs) ,rege(regs) 
jmp (return) 


; 59 Mov E,C 








moveed move.b regd(regs) ,rege(regs) ; 5A Mov E,D 
jmp (return) 














moveee move.b rege(regs) ,rege(regs) ; DB Mov E,E 
jmp (return) 








moveeh move.b regh(regs) ,rege(regs) 
jmp (return) 


; 5C Mov E,H 








moveel move.b reg] (regs) ,rege(regs) 


: 5D Mov’ E.L 
jmp (return) 








moveem move.w regh(regs) ,d@ 
move.b O(targbase,d@.1),rege(regs) 
jmp (return) 


DE Mov E,M 







moveea move.b rega,rege(regs) ; DF Mov E,A 
jmp (return) 


movehb move.b regb(regs) ,regh(regs) ; 68 Mov H,B 
jmp (return) 


movehc move.b regc(regs) ,regh(regs) ; 61 Mov H,C 
jmp (return) 


movehd move.b regd(regs) ,regh(regs) ; 62 Mov H,D 
jmp (return) 


movehe move.b rege(regs) ,regh(regs) ; 63 Mov H,E 
jmp (return) 


movehh move.b regh(regs) ,regh(regs) ; 64 Mov H,H 
jmp (return) 


movehl move.b regl(regs) ,regh(regs) ; 65 Mov H,L 
jmp (return) 

movehm move.w regh(regs) ,d@ ; 66 Mov H,M 
move.b Q(targbase,d@.1),regh(regs) 
jmp (return) 

moveha move.b rega,regh(regs) ; 67 Mov H,A 
jmp (return) 

movelb move.b regb(regs) ,regl(regs) ; 68 Mov L,B 
jmp (return) 

movelc move.b regc(regs) ,regl (regs) ; 69 Mov L,C 
jmp (return) 

moveld move.b regd(regs) ,regl (regs) ; 6A Mov L,D 
jmp (return) 

movele move.b rege(regs) ,regl (regs) ; 6B Mov L,E 


jmp (return) 
(Continued on page 102) 


Frustrated With the Tyranny of PASCAL? Tired of the Drudgery of BASIC? 


Free Yourself With 
CCSM, the Database Language...on, $59.95 


Compare This Routine to 


RDER(*DATA(NAM)) @ 


This simple program accepts, screens and saves names and phone numbers. .. sorts 
and prints them. These six lines of code are an example of the extremely compact, and 
familiar nature of COMP Computing Standard MUMPS, the Database Language. 

In lines 1 and 2, READ, IF, WRITE and GO should be easy to follow. The pattern match 
operator “?” filters for the correct input of alpha characters to make a name. 

In line 4, SET ~ DATA creates a permanent global file, with NAM as a subscript. The 
data node is SET to the telephone number. 

Inline 6, the $ORDER command gets the next subscript in order, from the ~ DATA file, 
thereby SETting NAM to the next name in the file. 


CCSM, the Database Language, frees you from the tyranny of typed and restrictive 
languages...NO declarations of variables or data files. Look at these Features: 


® Full Screen Editor 
@ Virtual Memory (routines and variables may be as large as a disk) 
Multi-User available..up to 15 
B-Tree File Structure 
8087 and BCD Support 
@ Exceeds 1984 ANSI Standard MUMPS 
® Transportable from Micro to Mini to Mainframe 
CCSM, the Database Language, is a fast, modern version of ANSI Standard MUMPS, 
developed by COMP Computing. It comes with a 20 year history of development, solving 
database applications. CCSM improves programmer productivity, and efficiency...typical 


programs are written in 1/3 the code of BASIC or PASCAL. CCSM is an easy to learn 
language and comes with a 250 page manual. 





AMEX, VISA and 
“arcdy oro  17O00-257-8052 
accepted by phone. — Af: rs 


In Texas 713-529-2576 
CCSM, the Database Language, sells for $59.95, and comes with full documentation. 
Until March 31, 1986, for an additional $15.95, we'll send along the “Cookbook of 
MUMPS", and its disk, (reg. $24.95) containing useful routines and utilities. For charts 
and graphs, order the Graphics disk for $49.95. Multi-user version, $450. Disks are 
non-copy-protected. Requires IBM PC or compatible with 128K. (Macintosh version 
available... $89.95) 


Order by phone, or clip and mail: Guidance Software 


1-800-257- P.O. Box 5362 
in oo aoe Kingwood, TX 77325 


ORG, COPE NO: ee date 

VISA __ 

Me. - 2. CCSM, Cookbook, and disks special package $75.90 
CCSM, the Database Language $59.95 
Graphics disk $49.95 
Please add $3.00 for shipping and handling. Texas residents add 6 1/8% sales tax. 


/BM PC and Macintosh are trademarks of International Business Machines, and Apple Computer. 
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8080 SIMULATOR 


LISTING TWO (Continued from January ) 


movelh 


movell 


movelm 


movela 


movemb 


movemc 


movemd 


moveme 


movemh 


movenl 


halt 


movema 


moveab 


moveac 


movead 


moveae 


moveah 


moveal 


moveam 


moveaa 


addb 
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move.b regh(regs) ,regl (regs) 
jmp (return) 


move.b regl(regs) ,regl (regs) 
jmp (return) 


move.w regh(regs) ,d0 
move.b @(targbase,d0.1),regl (regs) 
jmp (return) 


move.b rega,regl (regs) 
jmp (return) 


move.w regh(regs) ,d@ 
move.b regb(regs) ,O(targbase,d@.1) 
jmp (return) 


move.w regh(regs) ,d@ 
move.b regc(regs) ,@(targbase,d0.1) 
jmp (return) 


move.w regh(regs) ,d0 
move.b regd(regs) ,O(targbase,d@.1) 
jmp (return) 


move.w regh(regs) ,d@ 
move.b rege(regs) ,O(targbase,d@.1) 
jmp (return) 


move.w regh(regs) ,d@ 
move.b regh(regs) ,O(targbase,d@.1) 
jmp (return) 


move.w regh(regs) ,d& 
move.b regl(regs) ,O(targbase,d@.1) 
jmp (return) 


bsr service 
jmp (return) 


move.w regh(regs) ,d0 
move.b rega,0(targbase,d0.1) 
jmp (return) 


move.b regb(regs) ,rega 
jmp (return) 


move.b regc(regs) ,rega 
jmp (return) 


move.b regd(regs) ,rega 
jmp (return) 


move.b rege(regs) ,rega 
jmp (return) 


move.b regh(regs) ,rega 
jmp (return) 


move.b regl(regs) ,rega 
jmp (return) 


move.w regh(regs) ,d0 
move.b O(targbase,d0.1),rega 
jmp (return) 


jmp (return) 


move.b regb(regs) ,d& 

move.b d@,regopi(regs) 
move.b rega,regop2(regs) 
move.b regcon®e ,regop3(regs) 
add.b d@,rega 

move sr,d@ 

and.w regcon@f, dd 

move.b O(flagptr,d@.w) ,regf 
jmp (return) 


- 6C Mov 


6D Mov 


6E Mov 


6F Mov 


70 Mov 


71 Mov 


72 Mov 


73 Mov 


74 Mov 


; 75 Mov 


76 H1t 


77 Mov 


78 Mov 


79 Mov 


7A Mov 


7B Mov 


7C Mov 


7D Mov 


7E Mov 


7F Mov 


86 Add 


L,H 


L,L 


L,M 


L,A 


M,B 


M,C 


M,D 


M,E 


M,H 


M,L 


M,A 


A,B 


A,C 


A,D 


A,E 


A,H 


A,L 


A,M 


A,A 
B 


addc 


addd 


adde 


addh 


addl 


addm 


addaa 


adcb 


move.b regc(regs) ,d@ 

move.b d@,regop1 (regs) 
move.b rega,regop2(regs) 
move.b regcon@e ,regop3 (regs) 
add.b d@,rega 

move sr,d@ 

and.w regcon@f ,dé 

move.b O(flagptr,d@.w) ,regf 
jmp (return) 


; 81 Add C 


move.b regd(regs) ,d0 

move.b d®,regop1 (regs) 
move.b rega,regop2(regs) 
move.b regcon@e,regop3 (regs) 
add.b d@,rega 

move sr,d@ 

and.w regcon@f ,d@ 

move.b O0(flagptr ,dé.w),regf 
jmp (return) 


; 82 Add D 


move.b rege(regs) ,d@ ; 83 Add E 
move.b d@,regop1(regs) 

move.b rega,regop2(regs) 

move.b regconfe,regop3 (regs) 

add.b d0,rega 

move sr,d@ 

and.w regcon@f,d@ 

move.b O0(flagptr,d@.w) ,regf 

jmp (return) 


move.b regh(regs) ,d0 ; 84 Add H 
move.b d@,regop1 (regs) 

move.b rega,regop2(regs) 

move.b regcon@e ,regop3 (regs) 

add.b d@,rega 


move sr,d@ 

and.w regconéf ,d@ 

move.b 8(flagptr ,d@.w) ,regf 
jmp (return) 


move.b regl(regs) ,d@ ; 85 Add L 
move.b d@,regop1 (regs) 

move.b rega,regop2(regs) 

move.b regcone,regop3 (regs) 

add.b dé,rega 

move sr,d@ 

and.w regcon@f, dé 

move.b O(flagptr,dd.w),regf 

jmp (return) 


move.w regh(regs) ,d@ ; 86 Add M 
move.b @(targbase,d@.1),d0 

move.b d@,regop1 (regs) 

move.b rega,regop2(regs) 

move.b regconfe regop3 (regs) 

add.b d0,rega 

move sr,d@ 

and.w regcon@f,d@ 

move.b @(flagptr,d@.w) ,regf 

jmp (return) 


move.b rega,regop1 (regs) 
move.b rega,regop2(regs) 
move.b regcone,regop3 (regs) 
add.b rega,rega 

move sr,d@ 

and.w regconéf,d& 

move.b O(flagptr ,dé.w),regf 
jmp (return) 


; 87 Add A 


move.b regf,regop3(regs) 
asr.b #1,regf 

move.b regb(regs) ,d@ 
move.b d@,regop1 (regs) 
move.b rega,regop2(regs) 
moveq #0,d1 

addx.b d@,rega 


; 88 Adc B 
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move sr,d@ 

and.w regconéf,d@ 

move.b O(flagptr,d@.w) ,regf 
jmp (return) 

adcc move.b regf,regop3(regs) ; 89 Adc C 
asr.b #1,regf 

move.b regc(regs) ,dd 

move.b d@,regop1 (regs) 

move.b rega,regop2(regs) 

moveq #0,d1 

addx.b d®,rega 

move sr,d@ 

and.w regconéf,dd 

move.b O(flagptr ,d®.w),regf 

jmp (return) 


adcd move.b regf,regop3(regs) 
asr.b #1,regf 
move.b regd(regs) ,d0 
move.b d®,regop1 (regs) 
move.b rega,regop2(regs) 
moveq #0,d1 
addx.b d@,rega 
move sr,d@ 
and.w regconéf,d@ 
move.b O(flagptr,d@.w) ,regf 
jmp (return) 


adce move.b regf,regop3(regs) 
asr.b #1,regf 
move.b rege(regs) ,d@ 
move.b d@,regop1 (regs) 
move.b rega,regop2(regs) 
moveq #0,d1 
addx.b dé,rega 
move sr,dg@ 
and.w regconéf,d@ 


INTRODUCING 
DATALIGHT C 


of the compiler are: ih 


=Produces object files (.obj) so just the MSDOS 
linker is required. 

#Floating point performed with 8087 or 
automatic software floating. 

#Over 100 compact library functions with source. 

=sCompatible with the Lattice C compiler. 

#Runs On IBM-PC, and compatibles, running 
MSDOS 2.0 or later. vie 

eComplete, easy-to-read users’ manual with index. 

a Highly optimized code for production quality 
programs. 


Datalight 


11557 8th Ave. N.E. 
Seattle, Washington 98125 
(206) 367-1803 





The Datalight C Compiler 
for MSDOS is a full C with 
all K&R Constructs, 
including bitfields, 
plus the version 7 





Outside USA add $10 shipping. Washington State residents add 7.9% sales 
tax. VISA and MasterCard accepted. 


IBM-PC, a trademark of IBM; MSDOS, a trademark of Microsoft Corp.; Lattice 
C, a trademark of Lattice Corp. 
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adch move.b regf,regop3 (regs) ; 8C Adc H 


adcl move.b regf,regop3(regs) 


; 8A Adc D 


adcm move.b regf,regop3(regs) 


; 8B Adc E 





move.b O(flagptr ,d@.w) ,regf 
jmp (return) 









asr.b #1,regf 

move.b regh(regs) ,d@ 

move.b d@,regop1(regs) 
move.b rega,regop2(regs) 
moveq #2,d1 

addx.b d@,rega 

move sr,dé 

and.w regconéf,d@ 

move.b @(flagptr,d@.w) ,regf 
jmp (return) 















; 8D Adc L 






asr.b #1,regf 

move.b regl(regs) ,d@ 

move.b d@,regop1(regs) 
move.b rega,regop2(regs) 
moveq #2,d1 

addx.b d@,rega 

move sr,dQ 

and.w regconéf,d@ 

move.b @(flagptr,d0.w),regf 
jmp (return) 















; 8E Adc M 






move.w regh(regs) ,d@ 
move.1 d@,aa 

adda.l1 targbase,aé 
asr.b #1,regf 

move.b (a0) ,d@ 

move.b d@,regop1 (regs) 
move.b rega,regop2(regs) 
moveq #0,d1 

addx.b d@,rega 

move sr,d@ 

















(Continued on next page) 






| Transform Your Programs 
edward k. deter with 
Se CPP—c Preprocessor Plus 


Includes ALL features of the standard C preprocessor. 

¢ Define arbitrarily complex macros with #define command. 

¢ Include and nest files to any depth with #4include command. 

¢ Include lines with #if, #ifdef and #ifndef commands. 

¢ Define multiple constants with #enum command. 

¢ Optional extra feature: Imbed formatting or other commands 
in your source code. (Lines starting with . or x are ignored.) 













Fast and flexible 2222223333555 
¢ 30 times faster than the Preprocessor published in Dr. Dobb’s 
Journal. 
» © Can be used for any language, including assembler. 
¢ Can be used as a stand-alone macro/include processor. 
* Code can be used as the lexical analyzer for parsers or 
assemblers. 
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Com plete SES SES EEE SESE essere eee emote NNN 

¢ You get complete SOURCE CODE in standard C. 

e You get everything you need to use CPP immediately. 

¢ CPP is unconditionally guaranteed. If for any reason you are 
not satisfied with CPP, your money will be refunded promptly. 


Price: $95. Call or write today: 

Edward K. Ream 

1850 Summit Ave., Dept. DD 

Madison, WI 53705 

(608) 231-2952 
TO ORDER: Specify both the operating system (MS-DOS, CP/M 80 or CPM 68k) 
and the disk format (8 inch CP/M or the exact type of 5'4 inch disk). Send a check or 
money order for $95 ($105 for foreign orders). Foreign checks must be denominated 


in U.S. dollars drawn on a U.S. bank. Sorry, | do NOT accept phone, credit card or 
COD orders. Please do NOT send purchase orders unless a check is included. 
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8080 SIMULATOR 


LISTING TWO (Continued from January ) 


and.w regconéf,d@ 
move.b O(flagptr ,d@.w) ,regf 
jmp (return) 


adca move.b regf,regop3 (regs) 
asr.b #1,regf 
move.b rega,dé 
move.b d@,regop1 (regs) 
move.b rega,regop2(regs) 
moveq #0,d1 
addx.b d0,rega 
move sr,d@ 
and.w. regcon@f ,d@ 
move.b O(flagptr ,d@.w) ,regf 
jmp (return) 


subb move.b regb(regs) ,d0 ; 9D 
sub.b d0,rega 
move sr,d@ 
and.w regcon@f ,d@ 
move.b O(flagptr ,d@.w),regf 
jmp (return) 


subc move.b regc(regs) ,d@ 
sub.b d@,rega 
move sr,d@ 
and.w regconOf ,d@ 
move.b @(flagptr ,d@.w) ,regf 
jmp (return) 


subd move.b regd(regs) ,d@ 
sub.b d0,rega 
move sr,d@ 
and.w regcon@f,dg 
move.b O(flagptr ,d0.w) ,regf 
jmp (return) 


sube move.b rege(regs) ,d@ 
sub.b dé,rega 
move sr,d@ 
and.w regconéf,da 
move.b @(flagptr ,d@.w) ,regf 


jmp (return) 


subh move.b regh(regs) ,d@ 
sub.b d@,rega 
move sr,d@ 
and.w regconéf,d@ 
move.b O(flagptr ,dé.w) ,regf 
jmp (return) 


subl move.b regl(regs) ,dd 
sub.b dé,rega 
move sr,d@ 
and.w regconéf,d@ 
move.b @(flagptr,d@.w) ,regf 
jmp (return) 


subm move.w regh(regs) ,d@ 5-96 
move.b @(targbase,d0.1) ,dd 
sub.b d@,rega 
move sr,d@ 
and.w regconéf ,d@ 
move.b O(flagptr ,d0.w) ,regf 
jmp (return) 


subaa move.b rega,dd Sy 
sub.b d@,rega 
move sr,d@ 
and.w regconéf,d& 
move.b O(flagptr,dé.w) ,regf 
jmp (return) 


sbbb asr.b #1,regf ; 98 
move.b regb(regs) ,d@ 
movegq #0,d1 
subx.b d@,rega 
move sr,d@ 


104 


; 8F Adc A 


Sub 


Sub 


Sub 


Sub 


Sub 


Sub 


Sub 


Sub 


Sbb 


sbbc 


sbbd 


sbbe 


sbbh 


sbbl 


sbbm 


sbba 


andb 


andc 


and.w regconéf,dé 
move.b @(flagptr,d0.w),regf 
jmp (return) 


asr.b #1,regf 

move.b regc(regs) ,d@ 

moveg #2,d1 

subx.b d@,rega 

move sr,d@ 

and.w regconéf,d@ 

move.b O(flagptr ,dé.w) ,regf 
jmp (return) 


asr.b #1,regf 

move.b regd(regs) ,d0 

moveq #0,d1 

subx.b d0,rega 

move sr,d@ 

and.w regconéf,d& 

move.b O(flagptr ,dé.w) ,regf 
jmp (return) 


asr.b #1,regf 

move.b rege(regs) ,d& 

moveg #2,d1 

subx.b d®,rega 

move sr,d@ 

and.w regcon@f, dQ 

move.b @(flagptr,d0.w) ,regf 
jmp (return) 


asr.b #1,regf 

move.b regh(regs) ,d@ 

movegq #2,d1 

subx.b d@,rega 

move sr,da@ 

and.w regconéf,d@ 

move.b O(flagptr ,d@.w),regf 
jmp (return) 


asr.b #1,regf 

move.b regl(regs) ,d@ 

moveg #0,d1 

subx.b d@,rega 

move sr,d@ 

and.w regconéf,d@ 

move.b O(flagptr ,d@.w) ,regf 
jmp (return) 


move.w regh(regs) ,d0 
move.l d@,aa 

adda.l targbase,a0 
asr.b #1,regf 

move.b (a@),d@ 

moveq #0,d1 

subx.b d@,rega 

move sr,d@ 

and.w regcon@f,d@ 
move.b O(flagptr,d@.w) ,regf 
jmp (return) 


asr.b #1,regf 

move.b rega,d@ 

moveg #2,d1 

subx.b d@,rega 

move sr,d@ 

and.w regcongf,d@ 

move.b O(flagptr,d0.w) ,regf 
jmp (return) 


move.b regb(regs) ,d@ 

and.b rega,dé 

move.b d@,rega 

and.w regconff,d@ 

move.b 16(flagptr,d@.w) ,regf 
jmp (return) 


move.b regc(regs) ,d& 


; 99 Sbb C 


; 9A Sbb D 


; 9B Sbb E 


; 9C Sbb H 


; 9D Sbb L 


; 9E Sbb M 


- OF Sbb A 


; A® Ana B 


; Ai Ana C 
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and.b rega,d@ 

move.b d0,rega 

and.w regconff,d@ 

move.b 16(flagptr,d@.w) ,regf 
jmp (return) 


move.b regd(regs) ,d@ 

and.b rega,d@ 

move.b d0,rega 

and.w regconff,d@ 

move.b 16(flagptr,d@.w) ,regf 
jmp (return) 


move.b rege(regs) ,d@ ; AS Ana E 


and.b rega,d@ 

move.b d0,rega 

and.w regconff,d@ 

move.b 16(flagptr ,d@.w) ,regf 
jmp (return) 


move.b regh(regs) ,d@ ; A4 Ana H 


and.b rega,d@ 

move.b d@,rega 

and.w regconff,d@ 

move.b 16(flagptr,d@.w) ,regf 
jmp (return) 


move.b regl(regs) ,dd ; AD Ana L 


and.b rega,d@ 

move.b d®,rega 

and.w regconff,d@ 

move.b 16(flagptr,d@.w) ,regf 
jmp (return) 


move.w regh(regs) ,d@ ; A6é. Ana M 


move.b @(targbase,d@.1),d0 


catch the next micro-wave with 
UO-LISP 


Not “just another pretty dialect” but the most 
powerful implementation of LISP available in 
the micro market place. For the professional 
engineers, researchers, and educators, UO- 
LISP maintains the power and flexibility 
inherent in LISP while providing the expected 


functionality of mainframe LISP systems. (+) 


UO-LISP steps beyond the competition 


and provides a real source to native code 


compiler. 





anda 


xrab 


xrac 


xrad 


xrae 





and.b rega,d@ 

move.b d@,rega 

and.w regconff,d@ 

move.b 16(flagptr,d@.w) ,regf 
jmp (return) 


move.b rega,d& 

and.w regconff,d@ 

move.b 16(flagptr,d@.w) ,regf 
jmp (return) 


; A7 Ana A 


move.b regb(regs) ,d@ 

eor.b d@,rega 

move.b rega,dd 

and.w regconff,d@ 

move.b 16(flagptr,d@.w) ,regf 
jmp (return) 


; A8 Xra B 


move.b regc(regs) ,d@ 

eor.b dé,rega 

move.b rega,d& 

and.w regconff,d@ 

move.b 16(flagptr,d@.w) ,regf 
jmp (return) 


; AA Xra C 


move.b regd(regs) ,d@ 

eor.b d@,rega 

move.b rega,d@ 

and.w regconff,d@ 

move.b 16(flagptr,d@.w) ,regf 
jmp (return) 


; AA Xra D 


move.b rege(regs) ,d@ 
eor.b d#,rega 

move.b rega,d@ 
and.w regconff,d@ 


; AB Xra E 


(Continued on next page) 


LISP 


The preferred symbolic processing language 
of the Artificial Intelligence Community 


Production 
Operating Production Learn plus Learn 
ystem System System System 
8500 18500 
g500 18590 


available soon 


For MORE DETAIL AND TO ORDER: 
Send for FREE brochures and order forms. 


NORTHWEST COMPUTER ALGORITHMS 
P.O. Box 1747, Novato, CA 94948 


(415) 897-1302 
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move.b 16(flagptr ,dé.w),regf 
jmp (return) 


xrah move.b regh(regs) ,dé 
eor.b dO,rega 
move.b rega,d@ 
and.w regconff,d@ 
move.b 16(flagptr ,d@.w) ,regf 
jmp (return) 


; AC Xra H 


xral move.b regl(regs) ,d@ 
eor.b d@,rega 
move.b rega,d@ 
and.w regconff,d@ 
move.b 16(flagptr ,d@.w) ,regf 
jmp (return) 


; AD Xra L 


xram move.w regh(regs) ,d& 
move.b O(targbase,d@.1) ,d@ 
eor.b dO,rega 
move.b rega,d@ 
and.w regconff,d@ 
move.b 16(flagptr,d@.w) ,regf 
jmp (return) 


; AE Xra M 


xraa moveq #0,rega 
move.b 16(flagptr) ,regf 
jmp (return) 


SAPO Arar 


orab move.b regb(regs) , dd 
or.b rega,dé 
move.b d0,rega 
and.w regconff,dé 
move.b 16(flagptr,d@.w) ,regf 
jmp (return) 


MODULA-2 


DEVELOPMENT BUILDING BLOCKS 


- BO Ora B 



















REPERTOIRE, from PMI. High-performance tools. 
Screen display system. Multi-window editor. 


Screen System. 





REPERTOIRE won’t bloat your programs because it doesn’t 
generate code. You design screens with any editor, then 
REPERTOIRBP’s screen compiler transforms them into one dense, 
rapid-access file. Your program retrieves and displays screens 
with a single function call. Screens check user input, control 
program branching, and give context-sensitive help. REPERTOIRE 
supports attributes, multiple windows, and any number of 
screens. 


Editor. 


REPERTOIRE’s editor fits neatly into your programs. It can edit 
multiple files, as big as your memory limit, in user-located windows. 


















High-Performance Low level Routines. 


REPERTOIRE provides extensive DOS and BIOS access, string 
tools (including english-language analyzer), list handling, and a 
sample directory manager. 


Excellent for educational software or any other screen-intensive 
application. For IBM compatibles; Logitech & ITC versions. 
Manual and two 360K diskettes of fully commented source code 
for $64. Preview documentation for FREE. No royalties. 
Immediate shipment. Check/MC/VISA. 







PMT 4536 S.E. 50th Portland, OR 97206 (503) 293-7706 
MCI Mail: 269-1013; Compuserve: 74706,262 
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orac 


orad 


orae 


orah 


oral 


oram 


oraa 


cmpb 


cmpc 


cmpd 


cmpe 


cmph 


move.b regc(regs) ,dé 

or.b rega,d@ 

move.b d@,rega 

and.w regconff,d@ 

move.b 16(flagptr,d@.w),regf 
jmp (return) 


move.b regd(regs) ,d@ 

or.b rega,dd 

move.b d#,rega 

and.w regconff,dé 

move.b 16(flagptr,d@.w) ,regf 
jmp (return) 


move.b rege(regs) ,d@ 

or.b rega,d@ 

move.b d0,rega 

and.w regconff,d@ 

move.b 16(flagptr,d@.w) ,regf 
jmp (return) | 


move.b regh(regs) ,d@ 

or.b rega,d@ 

move.b d®,rega 

and.w regconff,dé 

move.b 16(flagptr,d@.w) ,regf 
jmp (return) 


move.b regl(regs) ,d@ 

or.b rega,dé 

move.b d@,rega 

and.w regconff,d@ 

move.b 16(flagptr,d@.w),regf 
jmp (return) 


move.w regh(regs) ,d0 

move.b @(targbase,d@.1),d0 
or.b rega,d@ 

move.b d@,rega 

and.w regconff,dé 

move.b 16(flagptr,d0.w) ,regf 
jmp (return) 


move.b rega,d@ 

and.w regconff,d@ 

move.b 16(flagptr,d@.w) ,regf 
jmp (return) 


cmp.b regb(regs) ,rega 

move sr,d@ 

and.w regcon@f,dQ 

move.b O(flagptr ,d®@.w) ,regf 
jmp (return) 


cmp.b regc(regs) ,rega 

move sr,d@ 

and.w regconéf,d@ 

move.b O(flagptr ,dé.w) ,regf 
jmp (return) 


cmp.b regd(regs) ,rega 

move sr,dg 

and.w regconéf,dé 

move.b O(flagptr,d@.w),regf 
jmp (return) 


cmp.b rege(regs) ,rega 

move sr,dg@ 

and.w regconéf,dé 

move.b O(flagptr,d0.w) ,regf 
jmp (return) 


cmp.b regh(regs) ,rega 

move sr,d@ 

and.w regconéf,dé 

move.b O(flagptr ,d@.w),regf 
jmp (return) 
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B1 


B2 


B3 


B4 


BD 


B6 


B? 


B8 


BB 


BA 


BB 


BC 


Ora 


Ora 


Ora 


Ora 


Ora 


Ora 


Ora 


Cmp 


Cmp 


Cmp 


Cmp 


Cmp 


cmp.b regl(regs) ,rega 

move sr,d@ 

and.w regconéf , dé 

move.b @(flagptr,d@.w),regf. 
jmp (return) 


move.w regh(regs) ,d@ 
move.l d@,a@ 

adda.1 targbase,al 

cmp.b (a) ,rega 

move sr,d@ 

and.w regcon@f ,d@ 

move.b 6(flagptr ,d@.w) ,regf 
jmp (return) 


cmp.b rega,rega 

move sr,d@ 

and.w regconéf,d@ 

move.b @(flagptr ,d@.w) ,regf 
jmp (return) 


btst #6,regf 

bne mloop 

move.b 1(pseudosp) ,d@ 

rol.w #8,d0 

move.b (pseudosp) , dé 

addq.1 #2,pseudosp 

lea.1 O(targbase,d@.1) ,pseudopc 
jmp (return) 


move.b (pseudosp)+,regc(regs) ; Cl Pop B 


move.b (pseudosp)+,regb(regs) 
jmp (return) 


move.b 1(pseudopc) , dd 
rol.w #8,da@ 

move.b (pseudopc) ,d@ 
addq.1 #2,pseudopc 
btst #6,regf 


IZARO C 


Discover the powers of Wizard C 
for yourself! 


‘‘..written by someone who has been in the business a 
while. This especially shows in the documentation.’ 


Computer Language 
February, 1985 
‘‘ Wizard's Zot the highest marks for support.” 


“The Wizard compiler had excellent diagnostics; it would 
be easier writing portable code with it than with any 
other compiler we tested.’ 


Dr. Dobb's Journal 
August, 1985 


Full Lint checkin®, six memory models, 8087 support, 
in-line assembly language, ROMable data support, full 


library source code. Cross-compilers are available on 


VAX/VMS and UNIX machines. 
(617) 641-2379 


Wizliro 


oS 
VISA mosses 
SYSTEMS SOFTWARE, INC. Da bee 


Only $450. 


11 Willow Court 
Arlington, MA 02174 
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- C2 Jnz addr 





bne mloop 
lea.1 O(targbase,d@.1),pseudopc 
jmp (return) 


move.b 1(pseudopc) ,d@ 

rol.w #8,d0 

move.b (pseudopc) ,d@ 

addq.1 #2,pseudopc 

lea.1 O(targbase,d@.1),pseudopce 
jmp (return) 


; C3 Jmp addr 


move.b 1(pseudopc) , dé 
rol.w #8,d0 

move.b (pseudopc) , dé 
addq.1 #2,pseudopc 
btst #6,regf 

bne mloop 

move.1 pseudopc,d1 
sub.1 targbase,d1 
move.b d1,-2(pseudosp) 
rol.w #8,d1 

move.b d1,-1(pseudosp) 
subq.1 #2,pseudosp 
lea.1 O(targbase,d@.1),pseudopc 
jmp (return) 


; C4 Cnz addr 


move.b regb(regs) ,-(pseudosp) 
move.b regc(regs) ,-(pseudosp) 
jmp (return) 


; CS Push B 


move.b (pseudopc)+, dé 
move.b d@,regop1 (regs) 
move.b rega,regop2(regs) 
move.b regcon@e,regop3 (regs) 
add.b d@,rega 

move sr,d@ 

and.w regconéf,dé 

move.b O(flagptr,d@.w) ,regf 
jmp (return) 


; C6 Adi nn 


(Continued on next page) 





Now available with 
8087 Support! 


MT BASIC 


Basic Compiler 


Features: 
Multi-line functions Multitasking 
No runtime fee Windowing 
Handles interrupts Interactive 
Fast native code Compiles in seconds 


MTBASIC is easy to use since you can write programs in an inter- 
active environment and then compile them using only one com- 
mand. MTBASIC has many advanced features like multitasking, 
random file access, formatted I/O, assembly language calls, and 
ROMable code. 


The MTBASIC package includes all the necessary software to 
run in interpreter or compiler mode, an installation program (so 
any system can use windows), demonstration programs, and a 
comprehensive manual. 


Ordering 


MTBASIC is available for CP/M, MS-DOS, and PC-DOS systems 
for $49.95.MTBASIC with 8087 support is available for MS-DOS 
for $79.95. Shipping is $3.50 ($10.00 overseas). MD residents 
add 5% sales tax. MC, Visa, checks and COD accepted. 


fia) a Dae 


P.O. Box 2412 Columbia,MD 21045-1412 
301/792-8096 
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rstQ move.1 pseudopc,di ; C7? Rst 6 btst #6,regf 
sub.1 targbase,d1 beq mloop 
move.b d1,-2(pseudosp) move.1 pseudopc,d1 
rol.w #8,d1 sub.1 targbase,d1 
move.b d1,-1(pseudosp) move.b d1,-2(pseudosp) 
subq.1 #2,pseudosp rol.w #8,d1 
move.]1 targbase,pseudopc move.b d1,-1(pseudosp) 
jmp (return) subq.1 #2,pseudosp 
btst #6,regf lea.l O(targbase,d@.1),pseudope 
beq mloop jmp (return) 
move.b 1(pseudosp) , dé 
rol.w #8,d0 move.b 1(pseudopc) ,dé 
move.b (pseudosp) ,d@ rol.w #8,d0 
addq.1 #2,pseudosp move.b (pseudopc) ,d@ 
lea.1 6(targbase,d@.1),pseudopc addq.1 #2,pseudopc 
jmp (return) move.1 pseudopc,di 
sub.1 targbase,d1 
move.b 1(pseudopc) ,d@ ; CA Jz addr move.b d1,-2(pseudosp) 
rol.w #8,d0 rol.w #8,d1 
move.b (pseudopc) , dé move.b d1,-1(pseudosp) 
addq.1 #2,pseudopc subq.1 #2,pseudosp 
btst #6,regf lea.l O(targbase,d@.1),pseudopc 
beq mloop jmp (return) 
lea.1 O(targbase,d@.1),pseudopc 
jmp (return) move.b regf,regop3(regs) ; CE Aci nn 
asr.b #1,regf 
move.b (pseudopc)+, da 


; CD Call addr 


bra illegl ; CB Illegal 
for 8282 move.b d@,regop1 (regs) 
move.b rega,regop2(regs) 
move.b 1(pseudopc) , dé ; CC Cz addr moveg #0,d1 


rol.w #8,d0 
move.b (pseudopc) ,d@ 
addq.1 #2,pseudopc 


! A 
d © : i : 
(a, OF ae -) I 
If you're a C programmer (or want to be one), we 
speak your language. Subscribe to The € Journal 
today, and start increasing your productivity right 
away. We give you information you can use on any 


machine — IBM PC™, UNIX™-based, Macintosh”, or 
~CP/M™ — micro, mini, or mainframe. 


e in-depth reviews and feature articles — C com- 
pilers, editors, interpreters, function libraries, 
and books. 


e hints and tips — help you work better and 
faster. 


e interviews — with software entrepreneurs that 
made it — by using C. 


@ news and rumors — from the ANSI standards 
committee and the industry. 


Limited Time Offer 


Join our thousands of subscribers at the Discount 
Rate of only $18 for a full year (regularly $28)! Call 
us NOW at (201) 989-0570 for faster service — don't 
miss a single issue of The C Journal! 


Please add $9 for overseas airmail. 
Trademarks — CP/M: Digital Research Inc. IBM PC: IBM 


Corp. Macintosh: Apple ComputerCorp. TheC Journal: 
InfoPro Systems. UNIX: AT&T Bell Labs. 


InfoPro Systems 
3108 Route 10 

Denville, NJ 07834 

(201) 989-0570 
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addx.b d@,rega 
move sr,d@ 
and.w regconéf,d@ 





FTL Modula-ll 
$49.95! 


Your next computer language. The successor to Pascal, 
Modula is powerful. Why? Once a routine is written, it need 
never be recompiled. Programs work everywhere from Z80 
through VAX. 


FTL Modula-ll is a full Z80 CP/M compiler (MSDOS version 
soon)! It’s fast -- 18K source compiles in 7 seconds! The 
built-in split screen editor is worth $60 alone. Some stan- 
dard features: full recursion, 15 digit reals, CP/M calls, 
coprocesses, assembler and linker. The one-pass compiler 
makes true Z80.COM, ROMable code, too. Get the language 
you've waited for now. Only $49.95! 


FTL Editor Toolkit 


Full source to our split-screen programming editor. Curious? 
Want to customize to your tastes? Want sample Modula-l! 
code? This is perfect for you. Comes with all you need for 
your personal editor or terminal installer. Just $39.95! 


Workman and Associates 
112 Marion Avenue 
Pasadena, CA 91106 
(818) 796-4401 


We have over 200 formats in stock! Please specify your for- 
mat when ordering. Add $2.50 per order for shipping. We 
welcome COD orders! 
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move.b 6(flagptr,d@.w) ,regf 
jmp (return) 


move.1 pseudopc,d1 ; CF Rst 8 


sub.1 targbase,d1 

move.b d1,-2(pseudosp) 
rol.w #8,d1 

move.b d1,-1(pseudosp) 
subq.1 #2,pseudosp 

lea.1 $8(targbase) ,pseudopc 
jmp (return) 


btst #2,regf 

bne mloop 

move.b 1(pseudosp) ,d@ 

rol.w #8,d0 

move.b (pseudosp) , da 

addq.1 #2,pseudosp 

lea.1 O(targbase,d@.1),pseudopc 
jmp (return) 


move.b (pseudosp)+,rege(regs) 
move.b (pseudosp)+,regd(regs) 
jmp (return) 


move.b 1(pseudopc) ,d@ 

rol.w #8,d0 

move.b (pseudopc) , dé 

addq.1 #2,pseudopce 

btst #0,regf 

bne mloop 

lea.l @(targbase,d@.1),pseudopc 
jmp (return) 


moveq #0,da 
move.b (pseudopc)+,dé 


ifne diskio 
cmp.b #$54,d0 


Now evaileble For the 
computer experimenter! 


COMPUTER CONNOISSEUR’S DELIGHT! 


NOW BE IN CONTROL WITH YOUR COMPUTER — THE ONLY PUBLICATION 
OF ITS KIND WRITTEN FOR THE USER. DISCOVER THE SECRETS AND 
LEARN THE VERSATILITY OF MODERN COMPUTER COMMAND CONTROL 
CONCEPTS. EXPERIMENT WITH COMPUTER AND TELEPHONE SYSTEMS, 
INTERFACE THEM, LEARN HOW THEY WORK, WHAT THEY DO... AND 
HOW TO GET THEM TO WORK FOR YOU! A’ COMPLETE TELEPHONE 
ENGINEERING COURSE IS INCLUDED IN MONTHLY CHAPTERS, BRING- 
ING YOU THROUGH STEP, CROSSBAR, ESS, BUBBLE, AND ATOMIC 
SWITCHING SYSTEMS! EXCLUSIVE COVERAGE IN BIOLOGICAL COMPUT- 
ING SYSTEMS, TOO! COMPUTERS AND TELEPHONES ARE THE FUTURE. 
THIS PUBLICATION IS AN ABSOLUTE MUST FOR EVERYONE INTERESTED. 
eat ek cag eae eS ee ee ee a ee 
UNPUBLISHED 


MATERIAL dhe one you ve all 
been waiting for 


NOW AVAILABLE — Learn how to repair tele- 
phones and telephone SySiBmns, how they work, in 
monthly installments with the 
comics . magazine for you. 


™ 


DIRECTORY 
LISTING 
NET- 


PUBLISHED MONTHLY 


ONE YEAR SUBSCRIPTION $14.00 
(SAMPLE COPY $2.00) 
SUBSCRIPTION & 2 PROGRAMS $20.00 


COMPUTEL-—the complete SOURCE for everyone. 
You can now do the things you’ve only heard about, 
Hed in the privacy of your own home. Indispensable 
reference to phreaks and hackers. Learn how to get 
all kinds of computer programs FREE. Get the inside 
story of big businesssystems—their quirks and flaws 
—and remain up to date with vital occurrences within 
the computer industry. Computel is a publication de- 
signed for everyone who has an intense curiosity of 
computer systems, containing a wealth of hard to find 
information, codes, and numbers. Published monthly. 


Comoutel Publishing Society 
6354 VAN NUYS BL., #161-A/ VAN NUYS, CA91401 
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beq outspec 
cmp.b #$55,d0 
beq outspec 
endc 


move.l1 #$ff0020 ,ab 
move.b rega,@(a,dd.1) 
jmp (return) 


move.b 1(pseudopc) , dé ; D4 Cne addr 
rol.w #8,d0 

move.b (pseudopc) ,d@ 

addq.1 #2,pseudopc 

btst #0,regf 

bne mloop 

move.l pseudopc,d1 

sub.1 targbase,d' 

move.b d1,-2(pseudosp) 

rol.w #8,d1 

move.b d1,-1(pseudosp) 

subq.1 #2,pseudosp 

lea.1 O(targbase,d@.1),pseudope 
jmp (return) 


move.b regd(regs) ,-(pseudosp) ; D5 Push D 
move.b rege(regs) ,-(pseudosp) 
jmp (return) 


move.b (pseudopc)+,d@ ; D6 Sui nn 
sub.b d@,rega 

move sr,d@ 

and.w regconéf,d@ 

move.b O(flagptr ,d@.w) ,regf 

jmp (return) 


move.1 pseudopc,d! ; D7? Rst 10 
sub.1 targbase,d1 

move.b d1,-2(pseudosp) 

rol.w #8,d1 


(Continued on next page) 


QUICK REF 


Indexing at your fingertips! Take the 
pressure off the tedious search for that much 
needed article. 

Quick Ref offers rapid recall of magazine ar- 
ticles by title, author, and key combinations. 


FOR THE INTRODUCTORY PRICE OF 
$34.95 * Key access to magazine 


articles 


QUICK REF] “Se! sy ws 


PROVIDES: a to 


* Convenient on-line help 
* Easy to use manual 


FREE INTRODUCTORY OFFER 
WITH PURCHASE 
The completely indexed 


Dr. Dobb’s Journal 
Data Base 


Available for IBM Compatibles and Victor 9000 


Terra Base Software 
906 S. 8th Street 
Laramie, Wyoming 82070 


(800) 238-4790 9:00 A.LM.—5:00 P.M. M.S.T. 
All orders shipped U.P.S. Surface shipping included in price. 


Visa/MasterCard accepted. Foreign orders please add $15.00. Checks must 
be on U.S. Bank in U.S. dollars. Specify machine and DOS version. 
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move.b d1,-1(pseudosp) 
subq.1 #2,pseudosp 

lea.1 $10(targbase) ,pseudopc 
jmp (return) 


re btst #0,regf ; D8 Re 
beq mloop 
move.b 1(pseudosp) , dQ 
rol.w #8,d2 
move.b (pseudosp) ,d@ 
addq.1 #2,pseudosp 
lea.l @(targbase,d@.1),pseudopc 
jmp (return) 


nopD9 obra illegl 


rol.w #8,d0 
move.b (pseudopc) ,d@ 
addq.1 #2,pseudopc 
btst #@,regf 
beq mloop 
lea.1 O(targbase,d@.1),pseudopce 
jmp (return) 

in moveq #0,d0 
move.b (pseudopc)+, dé 
move.1 #Sff0000 ,ab 
move.b 0(a0,d@.1),rega 
jmp (return) 


; DB In nn 


cc move.b 1(pseudopc) ,d@ ; DC Cc addr 
rol.w #8,da0 


move.b (pseudopc) , dé 





) a 


Want unparalleled speed and efficiency from 
your Macintosh? Get TheMax. 


TheMax: a 1.5Mb memory 
board designed to expand 


to a full 4Mb of power, plus 
MaxRAM: software to configure your memory 
two ways: 1Mb of contiguous memory with 


= 400K RAM disk or a 512K Mac with a recover- 
able 1024K RAM disk, and 


2 


- MaxPrint: print spooler software that lets you 
ork and ees at same time. 


and ithe 5 512K Mince Kits and 512K up- 
grade 3 are also available. Ask your dealer for 
more in formation, or contact 


MacMemory Inc. 


473 MACARA AVE., SUITE 701, SUNNYVALE, 28 94086, 
(408) 773-9922. 


Macintosh is a trademark licensed to Apple Computer Inc. 
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; D9 Illegal 
for 8882 


16 move.b 1(pseudopc) , dé ; DA Je addr 


nopDD 


sbi 


rsti8 


rpo 





addq.1 #2,pseudopc 
btst #0,regf 

beq mloop 

move.1 pseudopc,d1 
sub.1] targbase,d! 
move.b d1,-2(pseudosp) 
rol.w #8,d1 

move.b d1,-1(pseudosp) 
subq.1 #2,pseudosp 
lea.1 O(targbase,d@.1),pseudopc 
jmp (return) 


bra illegl ; DD Illegal 


for 8282 


asr.b #i,regf - DE Sbi nn 
move.b (pseudopc)+,d@ 

moveq #0,d1 

subx.b d@,rega 

move sr,d@ 

and.w regconéf,d@ 

move.b 0(flagptr ,d0.w) ,regf 

jmp (return) 


move.1 pseudopc, d1 - DF Rst 18 
sub.1 targbase,d! 

move.b d1,-2(pseudosp) 

rol.w #8,d1 

move.b d1,-1(pseudosp) 

subq.1 #2,pseudosp 

lea.l $18(targbase) ,pseudopc 

jmp (return) 


btst #2,regf 


is an intelligent MS-DOS Disassembler. It instantly and 
automatically produces easily readable self-documented 
assembly language segmented source files that can be 
edited and reassembled from any executable file 

(COM or EXE). You may immediately scan the listing 
online if desired. 


MASTER-KEY 
includes a Pretty-printed Source Code Formatter and 
Cross-Reference Generator. The Formatter produces a 
fully-documented assembly language source listing 
identifying all branch addresses, ROM BIOS and DOS 
Functions and Interrupts. It serves as an object code 
optimizer by helping to identify stack areas, temporary 
storage, ASCII strings, and unnecessary code. The 
Cross-Reference identifies the number and location of 
all branch addresses, labels, symbols, functions, 
and interrupts. 


Minimum System Requirements: 

256K 8088/8086/801 86/80286 PC (close to |BM 
compatibility) 

MS-DOS 2.0, 2.1, 3.0, or 3.1 

One 360K DSDD Floppy Drive (IBM PC Format) 


Sharpe Systems Corporation 
2320 “E” Street 
La Verne, CA 91750 


(714) 596-0070 


(MC and Visa accepted) 


Circle no. 241 on reader service card. 
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bne mloop 

move.b 1(pseudosp) , dé 

rol.w #8,d0 

move.b (pseudosp) , dd 

addq.1 #2,pseudosp 

lea.l O(targbase,d@.1),pseudope 

jmp (return) 
poph move.b (pseudosp)+,regl (regs) 
move.b (pseudosp)+,regh(regs) 
jmp (return) 


; El Pop H 


move.b 1(pseudopc) ,d@ 

rol.w #8,da0 

move.b (pseudopc) , dé 

addq.1 #2,pseudopc 

btst #2,regf 

bne mloop 

lea.l @(targbase,d@.1),pseudopc 
jmp (return) 


jpo ; E2 Jpo addr 


xthl move.b regl(regs) ,dd 

move.b (pseudosp) ,regl (regs) 
move.b d@, (pseudosp) 

move.b regh(regs) ,d@ 

move.b 1(pseudosp) ,regh(regs) 
move.b d@,1(pseudosp) 

jmp (return) 


; ES Xthl 


cpo move.b 1(pseudopc) ,dé 


rol.w #8,d0 

move.b (pseudopc) , dé 
addq.1 #2,pseudopc 
btst #2,regf 

bne mloop 

move.1 pseudopc,d1 
sub.1 targbase,d1 
move.b d1,-2(pseudosp) 


Time an 


We've just done something we know you'll like. 
We've made the SemiDisk far more affordable than 
ever before. With price cuts over 25% for most of 
our product line. Even our new 2 megabyte units 
are included. 


It's Expandable 


SemiDisk Systems builds fast disk emulators for 
more microcomputers than anyone else. S-100, 
IBM-PC, Epson QX-10, TRS-80 Models II, 12, and 16. 
You can start with as little as 512K bytes, and later 
upgrade to 2 megabytes per board...at your own 
pace, as your needs expand. Up to 8 megabytes per 
computer, using only four bus slots, max! Software 
drivers are available for CP/M 80, MS-DOS, ZDOS, 
TurboDOS, VALDOCS 2, and Cromix. SemiDisk 
turns good computers into great computers. 


SEMIDISK 





SemiDisk Systems, Inc., P.O. Box GG, Beaverton, Oregon 97075 


; E4 Cpo addr 





rol.w #8,d1 

move.b d1,-1(pseudosp) 

subq.1 #2,pseudosp 

lea.l O(targbase,d@.1),pseudope 
jmp (return) 


pushh move.b regh(regs) ,-(pseudosp) 
move.b regl(regs) ,-(pseudosp) 


jmp (return) 


; ES Push H 


ani - E6 Ani nn 


and.b (pseudopc)+,rega 
move.b rega,d@ 

and.w regconff,d@ 

move.b 16(flagptr,dé.w),regf 
jmp (return) 

rst26  move.l pseudopc,d! 

sub.1 targbase,d1 

move.b d1,-2(pseudosp) 

rol.w #8,d1 

move.b d1,-1(pseudosp) 
subq.1 #2,pseudosp 

lea.1 $20(targbase) ,pseudopce 
jmp (return) 


; E? Rst 20 


rpe 


btst #2,regf 

beq mloop 

move.b 1(pseudosp) , dé 

rol.w #8,d@ 

move.b (pseudosp) , dé 

addq.1 #2,pseudosp 

lea.1 6(targbase,d8@.1),pseudopc 
jmp (return) 


; E8 Rpe 


(To be continued in March ) 





Money. 


Battery Backup, Too 


At 0.7 amps per 2 megabytes, SemiDisk consumes 
far less power than the competition. And you don’t 
have to worry if the lights go out. The battery 
backup option gives you 5-10 hours of data 
protection during a blackout. Nobody else has this 
important feature. Why risk valuable data? 


The Best News 


512K 1Mbyte 2Mbyte 
SemiDisk I, S-100 $695 $1395 
SemiDisk II, S-100 $995 $1995 
IBM PC, XT, AT $595 $1795 
Qx-10 $595 $1795 
TRS-80 II, 12, 16 $695 $1795 
Battery Backup Unit $150 $150 $150 


| Someday you'll get a SemiDisk. 


Until then, you'll just have to....wait. 


Spe Haein 
= 


503-642-3100 


Call $03-646-5510 for CBBS/NW, 503-775-4838 for CBBS/PCS, and 503-649-8327 for CBBS/Aloha, all SemiDisk equipped computer bulletin boards ( 300/1200 baud) SemiDisk, SemiSpool trademarks of SemiDisk Systems. 


Circle no. 85 on reader service card. 
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16-BIT 
LISTING ONE (Text begins on page 114) 


eRKKKRKKKKKKKEKKEKEEKEKEKKEKEKEEEREKEEKERERERERERRKREREEEREKKEKKKEKEKEKEKKEEKKKEK 


PLOTDOT.OBJ Library module for Microsoft C (small model programs) 
by Dan Rollins 


Mid-resolution graphics pixel-plot function. 
Uses look-up tables for fastest operation. 
Permission is granted to use this for any purpose whatsoever. 


ve Ve Ye Ye Ye Ye Ye Ye Yo Ye Ye Ye 


synopsis: 

plotdot (x, y,color) 
int x; horizontal (0-319) not value-checked 
ant ¥3 vertical (0-199) not value-checked 
int color; color for dot (0 to 3) 


erent preamble for placing data into Microsoft C 'S model' static data area 
dgroup group data 
data segment word public 'data' 


pocces--- lookup table for start of each graphics line 
joeoce---- index is: (Y * 2) 
row tbl label word 
addr = 0 
rept 100 
dw addr,addr+2000H $Y¥=0,17 2,3: 4,5: etc 
addr = addr+80 
endm 


jeceeo--= lookup table for mid-res pixel positions in relevent byte 
porcocno= index is: (X mod 4) 
mask tbl db 00111111b, 11001111b, 11110011b, 11111100b 


joooo----- lookup table for color, according to position in byte 
poooe---- index is (COLOR * 4) + (X mod 4) 
color tbl db 00000000b, 00000000b, 00000000b, 00000000b ;color 0 
db 01000000b, 00010000b, 00000100b, 00000001b ;color 1 
db 10000000b, 00100000b, 00001000b, 00000010b ;color 2 
db 11000000b, 00110000b, 00001100b, 00000011b zcolor 3 
data ends 
he a aE preamble for placing code into Microsoft C 'S model’ program area 
pgroup group prog 
prog segment byte public 'prog' 
assume cs:pgroup, ds:dgroup 
public plotdot 
plotdot proc near ;SMALL MODEL ONLY 
pop si ;fetch return addr /this technique is faster 
pop bx ;fetch X ordinate /than stack-relative access 
pop di ;fetch Y ordinate 
pop cx ;fetch color 
MOV dx, es ;save current ES 
mov ax, 0Ob800H 
mov es, ax ;get set to write to video buffer 
shl di,1 ;index into row address lookup table 
Mov di,row tbl[{di] ;DI points to start of selected row 
MOV ax, bx scopy the X ordinate 
shr ax,1l 
shr ax,1l ;divided by 4 is byte offset from start of row 
add di, ax ;DI points to byte to modify 
Mov al,es: [di] ; fetch current screen byte 
and bx, 3 :get pixel-offset in byte (0,1,2, or 3) 
and al,mask_tbl[bx] ;mask a "hole" into the current byte 
jo------ index into the color table 
and > smake sure it's a valid color 
shl cx,1 3 COLOR * 2 
shl cx, 1 ; COLOR * 4 
add bx, CX ; index is (COLOR * 4) + (X mod 4) 
or al,color tbl[{bx] ;fill the “hole” with selected color 
mov es:(dij,al ;place modified byte back into screen 
Mov es, dx ;restore caller's ES 
jmp si sartificial (quick) NEAR return to caller 
plotdot endp 
prog ends 
end 


LISTING TWO 


/* RARAKKKKKKEKKEKKEKKKKEKKKEKKEKKEEEKRERAEEEERERRERKEEEREKEEKERERREERRRREK 
LINE.C 
by Dan Rollins 
Uses incremental algorithm and fast ASM plotdot 


Permission is granted to use this for any purpose whatsoever. 
RAEKKKAKAKEKKEARKKKAREKKRAEKEKKKEAKEKEKKKEKREREREKERRRRARRAKREREKEKKEKKEKKKK x / 


_main(arglin) /* this just skips the 'main' function altogether */ 
char *arglin; /* points to the DOS command line */ 
{ 


int x,y: 


dmode(1); /* enter text mode first (so screen will clear) */ 
dmode(4); /* mid-res color graphics mode */ 


112 


End Listing One 
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/* test the line algorithm by drawing in all directions, colors */ 


for (x=0; x<320; xt+=4) plotline(160,100, x, 0, 3); 
for (y=0; y<200; yt=—4) plotline(160,100,319, y, 2); 
for (x=319; x>=0; x-=4) plotline(160,100, x,199, 1); 
for (y=199; y>=0; y-=4) plotline(160,100, 0, y, 2); 


getch(); /* pause till key is pressed */ 
dmode(2); /* re-enter text mode */ 


} 


/* KKK KK KEK KEE KEK REE KK EKER KKKEK KEKE KKKKEKKKKEKREKERKEKKEKREEEKKKKEKK 


PLOTLINE (x1,y1,x2,y2, color) 

draws a line from (xl,yl) to (x2,y2) in specified color (0 to 3) 

calls 'plotdot' (a fast, mid-resolution pixel-plotting routine) 

KKK KKK EKER ERK EK KKK KEKE KKK KK KKK KEKE KKK KEK EKER EKER REEREKKEEKKKER x/ 
plotline (x1l,yl,x2,y2,color) 

int xl,yl; /* starting point */ 

int: x2, y2; /* ending point */ 

int color; 


{ 
/* use static variables for fastest access */ 
static int lg delta, sh_delta; /* distance of long, short axis */ 
static int lg step, sh_step; /* 0, 1 or -1 */ 


static int cycle; /* decision variable */ 
static int temp; /* swapping variable */ 
lg delta = x2-x1; /* get travel along X axis */ 


if (lg_delta >= 0) 
lg_step = 1; 


else { 
lg delta = -lg_delta; /* get absolute value */ 
lg _step = -1; /* reverse direction */ 
} 
sh_delta = y2-yl; /* get travel along Y axis */ 
if (sh_delta >= 0) 
sh_step = 1; 
else { 
sh_delta = -sh_delta; /* get absolute value */ 
sh_step = -1; /* reverse direction */ 
} 
if (sh_delta > lg delta) { /* if Y axis is longer, swap axes */ 


cycle = sh_delta >> 1; 
temp = lg delta; lg_ delta = sh_delta; sh_delta = temp; 
temp = lg step; lg_step = sh_step; sh_step = temp; 


while (yl != y2) { /* loop for "vertical" line */ 
plotpix (x1, y1l,color); 
yl += 1lg_step; /* always bump line pointer */ 
cycle += sh_delta; /* bump decision variable */ 
if (cycle >= lg delta) { /* past decision threshold? */ 
cycle -= lg delta; /* reset for next decison cycle */ 
x1 += sh_step; /* bump column pointer */ 
} 
} 
} 
else { /* X axis is longer, so don't swap */ 
cycle = lg delta >> 1; 
while (xl !'= x2) { /* loop for “horizontal" line */ 


plotpix (x1, y1l,color) ; 

x1 += lg step; 

cycle += sh_delta; 

if (cycle >= lg delta) { 
cycle -= lg delta; 
yl += sh_step; 


} 
} /* end of while */ 
} /* end of else (for axis swap) */ 
} /* end of plotline */ 


/* KRKKKKEKKKKKKEKEKKKEKEKREKEE EKER EKER KKEKEKKEKKKEKEKKKEEKKEEKEKEKKKKKKKKEK 


DMODE (mode) 
sets the display mode 


mode is: 0 = bw 40x25 text 4 = color 320x200 graphics 
1 = color 40x25 text 5 = bw 320x200 graphics 
2 = bw 80x25 text 6 = bw 640x200 graphics 


3 = color 80x25 text 
KEK KKK KK KK KKKKEKKKKEKKEKKKEKEKEEEKKEKEKEKEEKEKREEEEEEEEEREREKEKEKEAKEK x/ 
dmode (m) 
int m; 
{ 
struct XREGS{ int ax,bx,cx,dx; } regbuf; 
regbuf.ax = m; /* AH = 0, AL = mode */ 
int86(0x10, éregbuf, éregbuf) ; 
} 
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End Listings 
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COLUMNS 


Recommended Soitware 
I have been reading about the Small- 
talk language with interest for years, 
but I couldn't quite see my way clear 
to applying for a job at Xerox’s Palo 
Alto Research Center (PARC) just so I 
could play with it. METHODS from Di- 
gitalk is a true implementation of 
Smalltalk for the IBM PC (it can’t be 
marketed with the name Smalltalk 
because of trademark consider- 
ations) at a reasonable price. 

Smalltalk proper is an object-ori- 
ented programming language, but 
Smalltalk as people usually talk 
about it transcends ‘‘mere’’ coding to 
become both an environment and a 
philosophy for programming. The 
Smalltalk research and related work 
at Xerox's PARC have become the ba- 
sis for the much ballyhooed Macin- 
tosh user interface and the other 
windowed, “user-friendly” operat- 
ing system interfaces that are begin- 
ning to show up on microcomputers. 
Many of its concepts were also inco- 
porated into the language Neon, 
which was developed for the Macin- 
tosh by Kriya Software in Chicago. 

METHODS comes with an excellent 
550-page manual that leads you gent- 
ly into this brave but strange new 
world of object-oriented program- 
ming. METHODS’ screen performance 
is snappy, although the implemen- 
tors had to give up support for bit- 
mapped graphics to attain it; disk per- 
formance is OK, but I highly 
recommend a (large) hard disk. The 
arrow keys and special-function keys 
are used in a comfortable way to con- 
trol the windows, and you can get 
along without a mouse quite nicely— 
although a mouse may be used when 
available. 

Readers interested in learning 


by Ray Duncan 


more about Smalltalk should see the 
August 1981 special issue of Byte and 
the following books: 
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Goldberg, Adele. Smalltalk-80, the In- 
teractive Programming Environment. 
Addison-Wesley, 1984. 

Smalltalk-80, Bits of History, Words of 
Advice. Glenn Krasner ed. Addison- 


Wesley, 1983. 

Goldberg, Adele, and Robson, David. 
Smalltalk-80, the Language and its Im- 
plementation. Addison-Wesley, 1983. 


METHODS can be purchased for 
$250 from Digitalk Inc., 5200 West 
Century Blvd., Los Angeles, CA 90045; 
(213) 645-1082. 


Additional Recommended 
Software 
Two days after I received a copy of 
Microsoft C, Version 3.0, I had aban- 
doned my Lattice C compiler forev- 
er. The new Microsoft compiler gen- 
erates .EXE files that are half the size 
of the files generated by Lattice C— 
and faster besides. Microsoft C fea- 
tures extremely good integration 
with the functions of MS DOS (as you 
would expect, or at least hope for), 
including easy access to the environ- 
ment block and memory manage- 
ment, full path support, and several 
variations on the exec function. I par- 
ticularly like the compiler’s use of 
SET strings in the environment to 
find its libraries and include files. 
The Microsoft C floating point li- 
braries use the 8087 or 80287 numer- 
ic coprocessor automatically when it 
is available, or in-line 8087 code can 
be generated. Unlike Lattice C, a true 
assembly-language source file can be 
selected as the output from the C 
compiler, which may be hand-opti- 
mized and then fed to the Microsoft 


‘416-BIT SOFTWARE TOOLBOX 


Macro Assembler. The documenta- 
tion for the compiler, in two vol- 
umes, is far and away the best I’ve 
seen. I guess you all know where to 
find Microsoft, so I won't print its ad- 
dress and phone number here. 

Pro-CED by Chris Dunford (contrib- 
utor of many great programs to the 
public domain, including the BURN- 
OUT utility) is a command-line editor 
for PC-DOS with many powerful fea- 
tures including a command stack 
that allows you to recall and edit pre- 
viously entered commands for reen- 
try, command synonyms that allow 
you to abbreviate often-used com- 
mands to a few letters or symbols, 
the ability to chain frequently used 
commands together without batch 
files, and on-line help. Pro-CED comes 
with an excellent manual and is 
available for $35 from Chris Dunford 
at P.O. Box 1072, Columbia, MD 21044; 
(301) 992-9371. 


Expanding the 
Environment 

The default environment block pro- 
vided by COMMAND.COM is not very 
big, and when you start to use pro- 
grams that require several SET strings 
(such as the Microsoft C compiler), 
you may find that you exhaust the 
available environment space before 
you ever get out of the AUTOEXEC.BAT 
file while you are booting. 

Bob Smith, author of the Tall 
Screen program, has discovered that 
the DOS 3.1 COMMAND.COM has an un- 
documented switch to set the size of 
the environment. 


/E:nn sets the size of the environ- 

ment area to “‘nn’’ para- 
graphs. Range is 10 to 62. 
Numbers outside that range 


are ignored. 


The default value of the switch ap- 
pears to be /E:10. 

This feature is most useful when 
used in conjunction with the SHELL 
option in CONFIG.SYS. For example: 
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SHELL=C:\BIN\COMMAND.COM 
C:\BIN /P /E:20 


Trojan Horse Programs 
Don Watkins, system operator of the 
CompuServe IBM PC Novice SIG, re- 
cently passed me a copy of a Trojan 
horse program that was uploaded to 
his bulletin board. This program is 
named DROGAN.COM and is 7,040 
bytes in length. When you run it, it 
says ‘‘Please wait ...’’, there is some 
disk activity, and then it displays 
“BYE F_HEAD!” and exits—after for- 
matting your disk. 

Inspection of DROGAN.COM reveals 
that it is a “hacked” version of the 
IBM PC DOS FORMAT.COM program. 
When you download a program 
from a BBS without the source code, 
you need to be really careful—there 
are some twisted minds out there! 

Tom Neff has compiled the follow- 
ing list of other reported Trojan 
horse programs: 


DOSKNOWS.EXE—FAT killer mislead- 
ingly named the same as the 
harmless DOSKNOWS system-status 
utility. The real DOSKNOWS is 5,376 
bytes long. 

EGABTR—Billed as “improve your 
EGA display,’ but when run it de- 
letes everything in sight and 
prints “Arf! Arf! Got you!”’ 

FILER.EXE—labeled ‘‘Great new filing 
system,’ reportedly wiped out 20- 
meg hard disk. 

SECRET.BAS—Formats disks. 

STRIPES.EXE—Draws an American 
flag but copies the remote BBS con- 
figuration file to another file (STRI- 
PES.BOS) so the uploader can call 
back and download all the pass- 
words. Clever! 

VDIR.COM—This is the disk killer Jer- 
ry Pournelle wrote about in Byte 
magazine. 


More on Concurrent DOS 

My musings about Digital Research, 
GEM, and Concurrent PC DOS in re- 
cent issues of DDJ provoked several 
heated responses from readers. Evi- 
dently many people still harbor 
warm fuzzy feelings in their heart 
for Digital Research, dating back to 
the CP/M 1.4 days, and they suspect 
that DRI was somehow swindled out 
of its rightful place as the emperor of 
microcomputer operating systems. 
They react violently to the sugges- 
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tion that DRI might have blown the 
whole ball game by itself with such 
brilliant marketing moves as letting 
CP/M 2.2 stagnate for years, dawdling 
forever in getting a usable version of 
CP/M-86 into the field, and wasting 
valuable time and energy on hot 
ideas such as Dr Logo. 

Well, the statements I’ve made 
about GEM and Concurrent PC DOS 
over the last year in this column are 
only my own opinions and, of 
course, do not reflect the opinions of 
the management of DDJ. I have been 


programming on micros since the 
CP/M 1.4 days myself, and I certainly 
appreciate all the contributions Gary 
Kildall and DRI made with stable, rel- 
atively bugfree operating systems 
and compilers at the beginning of the 
microcomputer revolution. 

The events of the last two or three 
years, however, seem to point to an 
organization that is flailing around in 
the marketplace without much sense 
of reality or direction. Just recently 
we have been treated to the sight of 
DRI starting up massive Unix projects 


ARE YOU TRYING 
TO COMMUNICATE ? 


C programs can communicate with the world now through the power of 
The Greenleaf Comm Library. Now from the people who brought you The 
Greenleaf Functions General Library for C, comes this rich interrupt driven, 
ring-buffered asynchronous communications capability. 








Over 100 functions in C and assembler to facilitate communications at up to 
9600 baud. Up to eight ports at a time. ASCII or XMODEM. X-On/X-Off too. 
Hayes compatible modems controlled here. Safe too, bet you can’t exit your 
application with interrupts hot. Major applications around the world base 
their communicating applications on The Greenleaf Comm Library. Stop just 
trying and start really communicating. Get your copy of The Greenleaf Comm 
Library today. For all major C compilers, all models, all versions. For the 
IBM PC and just about any machine with MSDOS and an 8086. Comes with 
source code, extensive examples, demo programs, featuring C-Terminal, 
reference card and newsletter. No royalty. $185 


Other Products: The Greenleaf Functions General Library, over 220 
functions for total control of the IBM PC, with source. $185 for the compilers 
listed below. (See ordering instructions below). 





Specify compiler when ordering: Lattice, Microsoft, Computer Innovations, 


Mark Williams, or DeSmet. Add $7.00 for UPS Second Day Air (or $5.00 for 
ground). Texas residents add sales tax. Mastercard, VISA, check, or P.O. 


In stock, shipped same day. 


CO General Libraries 
OComm Library 
OCI186 Compiler 
OoLattice C 

CO) Mark Williams 


PRICES ARE SUBJECT TO 
CHANGE WITHOUT NOTICE. 


$185 
$185 
$349 
$395 
$475 


For Information: 


214/446-8641 


- 


GREENLEAF 
SOFTWARE © 





2101 HICKORY DR. 
CARROLLTON, TX 75006 
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and then abandoning them; an- 
nouncing Protected Mode Concur- 
rent DOS-286 and then fizzling out; 
caving in to Apple without a battle 
on the GEM visual interface; drop- 
ping support for CP/M-Plus even 
though the 8080/Z80 operating sys- 


tems are probably DRI's sole profit- 
able product by now; and spending 
millions of dollars on advertising to 
sell only about 50,000 copies of GEM 
at a price that could have barely cov- 
ered the costs of materials, packag- 
ing, shipping, and handling. 

The Concurrent PC DOS project 
seems to me to be the height of fool- 
ishness and a particularly glaring ex- 





Lattice Works 





NEW PROGRAMMER’S SCREEN 
EDITOR INTRODUCED 


Designed specifically for pro- 
grammers, the Lattice Screen Editor 
(LSE) is a fast and flexible, multi- 
window editor that is also easy to 
learn and use. 

LSE runs under MS-DOS or 
PC-DOS on most popular machines 
with 128Kb memory. It provides 
standard editor functions such as 
block moves, pattern searches, and 
“cut and paste’: In addition, LSE off- 
ers special features for programmers 
such as an error tracking mode and 
three assembly language input 
modes. 

A complete installation program 
is included to remap any of LSE’s 48 
keyboard functions. Menus, prompts, 
help messages and default file exten- 
sions can also be customized for 
individual user preferences. $125.00. 





LATTICE TOPVIEW 
TOOLBASKET NOW AVAILABLE 


Providing more than seventy 
functions, the Lattice TopView Tool- 
basket is designed for software 
developers writing applications for 
IBM’s TopView multi-tasking, multi- 
window environment. 


bs 
<P 
Lattice 
Phone (312) 858-7950 TWX 910-291-2190 
INTERNATIONAL SALES OFFICES: 


_ The Toolbasket functions elimi- 
nate the need for extensive use of 
assembly language when interfacing 
with TopView. The Toolbasket's 
library includes functions to control 
window, cursor, pointer, and printer 
operations. It also provides access to 
TopView’s cut-and-paste facilities and 
offers debugging services. 

The Toolbasket runs on the IBM 
PC, XT, AT, and compatible systems 
with 256Kb memory. $250.00. Binary 
and source code is available for 
$500.00. 


LATTICE CREATES C COMPILER 
FOR COMMODORE AMIGA 


Amiga C, produced by Lattice for 
the Commodore Amiga, supports 
the Amiga’s 68000 microprocessor 
and offers the same high speed and 
extensive capabilities of the MS-DOS 
Lattice C compiler currently used by 
more than 30,000 software develop- 
ers worldwide. Available from both 
Commodore and Lattice. $300.00. 

In addition, Lattice also offers 
cross compilers that allow you to 
develop Amiga programs on 
MS-DOS or UNIX systems. 

Contact Lattice, to discuss your 
programming needs. Lattice provides 
C compilers and cross compilers for 
many environments including Tandy, 
Sony, Hewlett-Packard, Tandem, and 
IBM Mainframe. Corporate license 
agreements available. 


Benelux: De Vooght. Phone (32)-2-720-91-28. England: Roundhill. Phone (0672) 54675 
Japan: Lifeboat Inc. Phone (03) 293-4711 France: SFDL. Phone (1) 666 1155 
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ample of DRI’s ability to delude itself 
into believing that the old days can 
come again. Given the close working 
relationship between Microsoft and 
IBM and the frequency with which 
new IBM hardware products and Mi- 
crosoft MS DOS versions are released, 
DRI will always be playing a catch-up 
game. Even if Concurrent DOS per- 
formed as well as MS DOS (which it 
doesn't), DRI could never hope to be 
less than six months to a year behind 
in emulating the functionality of the 
latest revision of MS DOS—which just 


‘isn't going to be good enough for to- 


day's software market. DRI would 
have been much wiser to invest the 
money and programming talent it 
put into Concurrent DOS into some- 
thing that the market really needed 
instead of into something that DRI 
wished the market needed. 


IBM PC Graphics 

Dan Rollins, the prolific author of 
magazine articles on 8086 assembly 
language and the book IBM PC, 8088 
Macro Assembler Programming 
(Macmillan, 1985), was kind enough 
to send us the following letter and 
listings: 

‘“‘My interest was piqued by Tom 
Hogan's article ‘Using Decision Vari- 
ables,’ published in the May 1985 is- 
sue of DDJ. I was disappointed in 
how slow the ellipsis generator exe- 
cuted—far slower than the BASIC CIR- 
CLE command. The code that gener- 
ates the coordinates is very fast. The 
bottleneck is in the pixel-plotting 
subroutine. I thought your readers 
might appreciate a fast IBM dot plot- 
ter to add to their toolboxes. 

‘The PLOTDOT.ASM program (List- 
ing One, page 112) is different from 
similar routines in that I have made a 
concerted effort to cut down on 
clock cycles. The first thing I did was 
to remove any ‘general code’ used to 
determine the current screen mode, 
and so on. This version will work 
only for midresolution graphics. 

‘But the breakthrough came when 
I realized that lookup tables could be 
used to convert the x,y coordinate 
pair into a screen buffer location and 
pixel position. This technique eats up 
some extra RAM (just over 400 bytes), 
but silicon is cheap. The routine sac- 
rifices storage for speed, and the 
trade-off is a pretty good deal. It 
avoids a very time-consuming multi- 
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plication, and the code is straight-line 
(there isn't a single conditional jump 
anywhere in the routine). 

“A couple of points of interest in 
PLOTDOT.ASM. I have written it to in- 
terface with Microsoft C Small Model 
programs, and the start of the code 
shows the coding overhead required 
to do so. Second, I have shaved off 
some precious clock cycles by ignor- 
ing the standard interfacing tech- 
niques. Instead of the stack relative 
addressing that is normally used to 
access parameters, I have simply 
popped them off the stack into the 
available registers. 

‘Another interesting point is in 
how the main lookup table is gener- 
ated. This is perhaps the only mean- 
ingful use of the Macro Assembler’s 
REPT pseudo-op. 

“Finally, Iam enclosing a Microsoft 
C line-drawing function (Listing Two, 
page 112) that illustrates the speed of 
the dot plotter. The ‘plotline’ function 
uses a decision variable, somewhat 
similar to that of Hogan’s ellipsis gen- 
erator. You could recode it in assem- 
bly language, but it might not be 
worth your effort. A disassembly 
shows that the Microsoft compiler 
generates quite efficient code, which 
is improved further by using static 
variables whenever convenient.” 


More Light Reading 

As I mentioned in last month's col- 
umn, if you don't have a subscription 
to Datamation, you are missing half 
the fun in life. An example is the es- 
say ‘Real Programmmers Don’t Use 
Pascal,’ which appeared in the July 
1983 issue on page 263. It introduces 
itself with: 

“The easiest way to tell who the 
Real Programmers are is by the pro- 
gramming language they use. Real 
Programmers use FORTRAN. Quiche 
Eaters use Pascal. Niklaus Wirth, the 
designer of Pascal, was once asked, 
‘How do you pronounce your name?’ 
‘You can either call me by name, pro- 
nouncing it Veert, or call me by val- 
ue, Worth,’ he replied. One can tell 
immediately from this comment that 
Niklaus Wirth is a Quiche Eater. The 
only parameter passing mechanism 
endorsed by Real Programmers is 
call-by-value-return, as implement- 
ed in the IBM/370 FORTRAN G and H 
compilers. Real Programmers don't 
need abstract concepts to get their 


Dr. Dobb’s Journal, February 1986 





jobs done, they are perfectly happy 
with a keypunch, FORTRAN IV com- 
piler, and a beer. Real Programmers 
do list processing, string manipula- 
tion, accounting (if they do it at all), 
and artificial intelligence programs 
in FORTRAN. If you can’t do it in FOR- 
TRAN, do it in assembly language. If it 
can't be done in assembly language, 
it isn't worth doing. .. .” 

The article goes on in this vein for 
four pages, incidentally giving a 
proof (in FORTRAN, not ALGOL) that 
Seymour Cray, at least, is a Real 
Programmer. 


Blatant Plug and a 
Disclaimer 

As many of you know, I have been 
working for a year now on what I 
hope will be the definitive book on 
MS DOS programming. It starts where 
the other books leave off. It is target- 
ed at the experienced assembly-lan- 
guage programmer, and it has many 
detailed examples and working pro- 
grams (it contains some C examples, 
too). Although my own company 
published this book briefly under the 
title MS DOS Internals, it has now 
been sold to Microsoft Press and will 
appear in your favorite bookstore 
under the title Advanced MS DOS in 
the spring of 1986. 


This is not only a plug but also a_ 


disclaimer. Although it is a pleasure 
to be associated with the fine people 
at Microsoft Press, let me assure you 
that it will not influence the way I 
report on Microsoft Corp. software 
in this column. When the company 
deserves praise (as with the C compil- 


er), it will get it; and when it deserve 


brickbats, it'll get those too. 


DDJ 


(Listings begin on page 112) 
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MetaScope: 
The Debugger 


MetaScope gives you everything 
you ve always wanted in a 
debugger: 


@ Multiple Windows 
Open and close, move through 
memory, display data or 
disassembled code. 


Full Symbolic Capability 
Read symbols from files, define 
new ones, use anywhere. 


Powerful Expression Evaluation 
Use any standard assembler 
operators or number formats. 


Direct to Memory Assembler 
Enter instruction statements for 
direct conversion to code in 
memory. 


and More! 

Log file for operations and 
displays, breakpoint and trace 
execution, modify/ 

search/fill memory, etc. 


MetaScope is designed to fully 
utilize the capabilities of the 
Amiga in debugging your 
programs. If you're programming 
the Amiga,” you can't afford to be 
without it. 


$95 (California residents + 6%). 
Visa/MasterCharge accepted. 


Amiga is a trademark of Commodore-Amiga Inc. 


Metadigm, |inc. 


19762 MacArthur Blvd. 
Suite 300 
Irvine, CA 92715 
(714) 955-2555 
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Software 
Warranties 


“You have the non-exclu- 
sive right to use the en- 
closed program. You may 
not use, copy, modify, or 
transfer the program or 
documentation, or any 
copy, except as expressly 
provided in this agree- 
ment. Unauthorized repro- 
duction, transfer, or use 
may be a criminal offense 
under federal and/or state 
law. 

“The program is provid- 
ed ‘as is’ without warranty 
of any kind. Should the 
program prove defective, 
you (and not [the compa- 
ny] or its dealers) assume 
the entire cost of all neces- 
sary servicing, repair, or 
correction. [The company] 
does not warrant, guaran- 
tee, or make any represen- 
tations regarding the use 
of, or the results of the use 
of, the program in correct- 
ness, accuracy, reliability, 
currentness, or otherwise; 
and you rely on the pro- 
gram and results solely at 
your own risk. 

{The company] does 
warrant the disk. 

“The above is the only 
warranty of any kind, ei- 
ther expressed or implied, 
including but not limited to 
the implied warranties of 
merchantability and fit- 
ness for a particular pur- 
pose that is made by [the 
company)].’’ 

The above familiar prose 
is reproduced here with- 
out credit to (or permission 
of) the companies that use 
it. Although the whole is a 
composite, every sentence 
was taken directly from 
some company’s shrink- 
wrap agreement. There's 
no point in singling out one 
or two companies when so 














many use essentially the 
same disclaimer. It is rou- 
tine in software publishing 
today to sell diskettes for 
$400 or $500 and inform 
the purchaser that there 
may be a piece of software 
on the diskette; that if 
there is, it may or may not 
do what the company’s ad- 
vertising says it will do; 
that it may or may not do it 
accurately, correctly, or 
reliably; and that it may or 
may not be of any use to 
anyone; but that in any 
case it is not the property 
of the customer, who may 
be tried as a criminal for 
any improper use of the 
product, proper use being 
defined by the manufac- 
turer. 

It's a routine that may 
soon be shaken—but one 
organization of software 
developers is concerned 
about whose hand will do 
the shaking. 

The Software Services 
Association (SSA) is a Cali- 
fornia organization whose 
members are individuals 
and companies involved in 
software development and 
related fields. It’s an explic- 
itly political group that en- 
gages in lobbying for the 
interests of software devel- 
opers. It was formed in 
1982 to fight California's at- 
tempt to levy a retroactive 
sales tax on the work of 
small software companies 
that would extend back as 
far as 1974. The SSA has re- 
cently taken on the issue of 
software warranties, again 
in connection with pro- 
posed legislation. 

The California legisla- 
ture held hearings last 
summer on a bill (AB 1507) 
that would have required 
warranties on all software 
products. The bill was de- 
feated, but the SSA does not 
view the issue as closed. 
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Michael Odawa of the SSA 
was one witness who testi- 
fied at the hearings. 
Odawa and the SSA viewed 
the bill as hostile to the 
software industry, but 
Odawa has nevertheless 
argued in favor of volun- 
tary adoption of warran- 
ties and against the prac- 
tice of using the kind of 
disclaimers quoted above, 
contending that compa- 
nies that use them “‘appar- 
ently feel no need to stand 
behind their workman- 
ship.” 

Odawa argues that con- 
sumers will not continue 
to put up with useless war- 
ranties much longer, and 
he cites the legislative bat- 
tle as evidence. He urges 
SSA members to offer good 
warranties and to use 
them as a marketing tactic. 
“Put a good warranty on 
your product,’ he says, 
“and tell the world about 
it. Ask your customers 
whether the competition 
stands behind its pro- 
ducts.”’ 

The SSA publishes a 
newsletter that details its 
activities. You can get in- 
formation about the orga- 
nization by writing to Soft- 
ware Services Association, 
P.O. Box 6413, San Jose, CA 
95150. 


Soitware 
Pricing 


Another Silicon Valley or- 
ganization that offers use- 
ful services and informa- 
tion for programmers is 
the Software Entrepre- 
neurs’ Forum, which 
meets monthly in Palo 
Alto. November's meeting 
centered on software pric- 
ing strategies. 

Gregg Marshall, presi- 
dent of Rocky Mountain 


Systems, tongue only occa- 
sionally in cheek, cited sev- 
en pricing strategies, each 
of which prevails over oth- 
ers in some market. 

Several of the techniques 
were textbook or com- 
monsense _ techniques, 
such as retail price equals 
n times cost of goods sold. 
Marshall set n at some- 
where between 6 and 10; 
in other industries it is of- 
ten more like 5. Other com- 
mon techniques included 
copying the competition, 
pricing according to the 
value of the data your soft- 
ware juggles, and selling to 
the perceived value. The 
last idea can be particular- 
ly appealing to those in a 
company who see their job 
as manipulating the pub- 
lic’s perception of the 
product. Other strategies 
included what Marshall 
called the Borland strategy 
of picking a magic number. 

Other speakers pointed 
out that some price ranges 
create misleading impres- 
sions for consumers and 
that customers are willing 
to pay for upgrades, will- 
ing enough that there are 
profits to be made from 
upgrades. Gary Carlston, 
cofounder of Broderbund, 
emphasized the impor- 
tance of involving dealers 
in the pricing process. 

The Software Entrepre- 
neurs’ Forum has several 
splinter groups, such as 
SIGs covering technical is- 
sues for Macintosh and IBM 
developers, as well as mar- 
keting and engineering 
siGs. The Forum also pub- 
lishes a newsletter. You 
can find out about it by 
writing to Software Entre- 
preneurs’ Forum, P.O. Box 
61031, Palo Alto, CA 94306. 
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Trading Places 


A flurry of post-Comdex 
visits to and from repre- 
sentatives of companies 
not generally thought of as 
software developers has 
left us with a curious im- 
pression: programmers 
and semiconductor pro- 
ducers are trading places. 

All right, we re exagger- 
ating. But we do so to em- 
phasize a growing trend, 
one implication of which is 
that programmers should 
keep a close eye on semi- 
conductor firms—and not 
just to see what new pro- 
cessors are coming. The 
design of chips is becoming 
more and more a software 
task, and the manufactur- 
ers of chips are beginning 
to realize that they need to 
be in the _ software 
business. 

Take Intel. We flew up 
to Oregon to visit some In- 
tel people and learned 
about some changes un- 
derway there. 

For years, Intel has sold 
development systems to its 
customers, development 
systems that were, in fact, 
personal computers. Intel 
was not, however, in the 
commercial personal com- 
puter marketplace be- 
cause its machines were 
built in low volumes for 
specific purposes. Intel 
was not building machines 
that could compete in the 
commercial market, nor 
did the company want to 
be in that market. Intel had 
decided as far back as the 
mid-70s that it was not a 
computer company and it 
was not in its best interest 
to develop a commercial 
computer and compete 
with its customers. 

But the development 
systems Intel built, the sys- 


tems it sold to its customers 
who were building ma- 
chines around Intel’s 
chips, were not just boxes. 
Intel also supplied the de- 
velopment software. The 
history of Intel's involve- 
ment in microcomputer 
software development is 
rich in intriguing might- 
have-beens. One of the first 
Intel development systems 
sat in the back of Gary Kil- 
dall’s classroom at the Na- 
val Postgraduate Research 
Institute in Monterey, Cali- 
fornia, where graduate 
student Gordon Eubanks 
wrote CBASIC as a class pro- 
ject. Kildall wrote some of 
Intel’s development soft- 
ware, and Intel could have 
had CP/M if it had wanted 
it. But Intel didn’t want a 
commercial product; it 
wasn't in the software 
business any more than it 
was in the computer 
business. 

Intel passed up CP/M, but 
it did put together for each 
of its products a support 
package of the hardware 
and software necessary to 
use the product. The soft- 
ware, like the hardware, 
was designed for the devel- 
opment phase. In soft- 
ware, as in computers, In- 
tel was just selling support 
tools for its products, not 
competing in the commer- 
cial market. 

Now that’s changing. In- 
tel is coming to believe that 
it belongs in the commer- 
cial system-software mar- 
ket and that it must devel- 
op competitive products. 
Company employees 
make no mystery about 
the reason for the shift in 
strategy: it’s the IBM PC/AT. 

As long as you had to 
buy Intel's box to use In- 
tel’s chips and Intel's soft- 
ware was written to run 
on Intel’s box, the firm had 
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a captive market for its de- 
velopment hardware and 
software. The AT has cut a 
link out of the chain: it pro- 
vides the speed, memory, 
and power needed for sys- 
tem development, and it 
makes the Intel boxes un- 
necessary. Which leaves 
the software with its chain 
dangling. Intel develop- 
ment software must now 
compete with commercial 
software. That has caused 
some concern at Intel as 
well as some scrambling to 
get the products and the 
marketing of the products 
in line with commercial 
standards and practices. 
One Intel representative 
breathed a sigh of relief 
that DDJ had not reviewed 
the Intel C compiler in its 
August 1985 review but ex- 
pressed interest in having 
the next version included 
in the next review. 

The other side of this 
coin is that the design of 
chips (and of computers) is 
becoming more and more 
a software task. Two ex- 
amples of this are silicon 
compilers and the soft- 
ware simulation of semi- 
conductor devices. 

We went to hear David 
Johannsen speak during 
Comdex. Johannsen is gen- 
erally credited with in- 
venting the concept of sili- 
con compilation as a 
graduate student at Cal 
Tech. He subsequently ce- 
mented his right to use the 
term by starting a compa- 
ny called Silicon Compil- 
ers, which develops silicon 
compilers (as one might na- 
ively guess) and, more re- 
cently, silicon compiler 
compilers. Johannsen’s ap- 
proach to computer-aided 
design most blatantly un- 
derscores the parallels be- 
tween semiconductor de- 
sign and software design. 








Silicon compilation 
helps in the design and de- 
sign testing of a chip just as 
a software compiler helps 
in the design of a program. 
The user works with low- 
level primitives such as 
ALUs, RAMs, and PLAs, 
building these into blocks 
and modules and perhaps 
into chips that serve as 
board-level primitives for 
a higher level of design. 
The notion of multiple lev- 
els is central to the silicon 
compiler; the user can de- 
sign at different levels, 
with the system simulating 
devices down only to the 
level at which design is 
taking place. 

Silicon compilation of- 
fers some capabilities that 
software compilers don't 
and perhaps should. Users 
of a silicon compiler can 
specify designs in language 
format, just as when writ- 
ing code (or constructing 
truth tables, logic equa- 
tions, microcode; Johann- 
sen classifies all these ap- 
proaches as_ language 
formats). But they can also 
work at a graphic, more in- 
tuitive level, specifying via 
schematics. And for con- 
ventional components, the 
user has the option of sim- 
ply filling in a displayed 
form with on line help— 
programming by menus. 

Silicon Compilers’ silicon 
compilers provide some 
other softwarelike capabil- 
ities, including a rough 
equivalent of syntax 
checking in a logical design 
rule checker (LDRC). The 
LDRC checks for timing in- 
consistencies and type in- 
consistencies (clock expect- 
ed, ground wired) and 
flags certain “questionable 
practices” (mostly nonpor- 
table stuff). 
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This issue focuses on Pas- 
cal, Ada, and Modula-2 as 
structured languages. 
There has for some time 
been a language available 
in the 6502 world that em- 
bodies such structured fea- 
tures as_ syntactically 
meaningful indentation: 
Promal. 

Systems Management 
Associates announced that 
its Promal 2.0 integrated 
programming system will 
support the IBM PC and 
compatibles by March 
1986. Significant perfor- 
mance and capacity en- 
hancements are expected. 
The product consists of a 
high-performance, com- 
piled structured language; 
full-screen editor; operat- 
ing system executive (ex- 
cept IBM version); and li- 
brary subroutines. It 
currently supports the Ap- 
ple Iic or Ile (with 128K and 
80-column card) and the 
Commodore 64/128. 

The Commodore and 
Apple versions are priced 
between $50 and $100. The 
IBM PC line version costs 
$99.95 plus $5 for shipping 
and handling. 

Control-C Software has 
announced a_ software 
product that permits spe- 
cific IBM PC applications 
such as Lotus 1-2-3, Multi- 
mate, WordStar, and Side- 
Kick to work on personal 
computers that are not IBM- 
compatible. Known as Soft- 
clone, this software re- 
quires no changes to the 
original release disk, so any 
copy protection used re- 
mains in force. 
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At the heart of Softclone 
is a smart loader program 
that loads the IBM PC appli- 
cation and surrounds it 
with a fake IBM PC soft- 
ware/hardware environ- 
ment. Whenever an appli- 
cation accesses IBM-specific 
memory or hardware, 
Softclone intervenes, ac- 
cessing the nonclone host 
memory, hardware, and 
operating system instead. 
Under a licensing agree- 
ment, the per-CPU royalty 
is $10. 

Advanced Trace86 from 
Morgan Computing pro- 
vides assembly-language 
programmers with a de- 
bugging environment for 
the IBM PC or IBM PC/AT. In 
Trace mode, it displays a 
full screen (16— 22 lines) of 
disassembled code. An in- 
verse video bar marks the 
instruction that is current- 
ly executing. Windows 
show a constant display of 
registers and flags, the cur- 
rent stack, and up to six 
lines of memory (which 
you can set to track pro- 
gram references). An op- 
tional window displays the 
contents of 8087 registers. 
It is possible to single step, 
trace at normal trace speed 
(about 30 instructions per 
second) or quick trace 
speed (about 1/3000 of na- 
tive), use a keyboard inter- 
rupt to start tracing a run- 
ning program, or set a 
breakpoint in the code. Ad- 
vanced Trace86 can also 
step backward up to 20 in- 
structions to get a replay of 
the action. 

Real-Time Computer Sci- 
ence Corporation has an- 
nounced several new 
products. The PL/M Con- 
nection is an interface li- 
brary of more than 150 
functions and utilities that 
provides a direct connec- 
tion between an IBM PC 





and Intel’s PL/M 86 compil- 
er. PL/M Connection comes 
on a 360K IBM PC DOS for- 
matted disk, complete 
with source code in PL/M 
and assembly, demonstra- 
tion programs (also with 
source code), and a 200- 
page manual. The license 
fee is $295 per user system. 

Version 3.0 of iSIM85 
software allows develop- 
ers to run Intel 8-bit com- 
pilers, assemblers, and util- 
ities on IBM PC/XT/ATs or 
any MS DOS-based comput- 
er. It supports Intel devel- 
opment software for the 
8085, 8080, 8089, and 8048/ 
8051 processor lines. 

Intel and Advanced 
Computer Techniques 
have agreed to develop an 
80286-based Ada compiler. 
Aimed at military software 
design applications, the 
Ada-286 compiler will sup- 
port two target environ- 
ments: the 80286 micropro- 
cessor chip and_ the 
iRMX286 operating system. 
Both environments will 
support the M80287 nu- 
meric data processor. 

The Advanced Logic Re- 
search System 286 is based 
on the advanced 80286-8 
16-bit microprocessor with 
a system clock rate of 8 
MHz. It is designed to be 
IBM PC/AT bus compatible 
with full attention to the 
BIOS ROMs. The system sup- 
ports IBM PC DOS 3.0 and 3.1 
and Xenix operating 
systems. 

A 5-inch board that fits 
into one IBM “‘short’’ slot, 
the PC/Short Memory 
from Emulex expands the 
IBM PC or compatibles to a 
full memory capacity of 
640K. It offers starting ad- 
dresses of 128K, 256K, 
384K, and 512K so the 
board can work on a vari- 
ety of personal computers 
with different RAM capaci- 


ties on their motherboards. 
The PC/Short Memory also 
supports byte parity to 
protect data in the event of 
a failure. 

Micro Computer Tech- 


nologies has introduced 


what it calls the next gen- 
eration of expansion 
boards for the IBM PC/XT. 
The Modular Expansion 
Series includes an exter- 
nally mounted visual/au- 
dible indicator for key- 
board, keylock positions, 
fast/slow speed, program- 
mable key function, and 
an added four feet of key- 
board extension cable. No 
IBM expansion slot is 
required. 

The power to develop 
transportable applications 
on arange of hardware, in- 
cluding the IBM PC AT, IBM 
PC XT, and Unix machines, 
is available through Pro- 
gress from Data Language. 
Progress is an application 
development system com- 
bining a fourth-generation 
application language with 
a database management 
system. Advanced facilities 
provide a single produc- 
tive environment for 
building transaction-ori- 
ented applications without 
conventional program- 
ming. Its multiuser, envi- 
ronment supports simulta- 
neous database access and 
update while maintaining 
database integrity through 
systems failures. 

The Cauzin Softstrip Sys- 
tem is for entering, storing, 
and distributing data. It is 
an alternative to diskettes 
and telecommunications. 
The Softstrip data strips 
are decoded and entered 
into a personal computer 
via an optoelectronic scan- 
ning device that plugs into 
IBM, Apple II series, and 
Macintosh personal com- 
puters. Each data strip can 
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hold up to 5,500 bytes and 
can be linked for lengthy 
programs, financial infor- 
mation, or databases. 

Advanced Digital Corpo- 
ration’s PC-Slave II is a 
high-speed (8 MHz), 16-bit 
single-board processor that 
contains two Intel 80188 
CPUs, two 512K memory 
chips, 2K of dual port 
networking, and a priority 
interrupt controller. It 
achieves both hardware 
and software compatibility 
with the IBM PC and com- 
patibles by providing func- 
tional identity I/O address- 
es, video display, keyboard 
interface, and operating 
system software. Single- 
user systems can be ex- 
panded to multiuser sys- 
tems of 2—32 individual 
workstations. 

Sumitronics has released 
the General Purpose Cross 
Assembler, XASS-V. In addi- 
tion to supporting pro- 
gramming for all common 
microprocessors, the XASS- 
V also supports custom 
CPUs. Definition files are 
generated by the option 
program of the Definition 
Processor (XGEN-V). It is exe- 


1 cutable in the 32-bit native 


mode of VAX-II series and 
| micro VAX-I/II. 

Version 1.5 of Koch Soft- 
wares PC Sweep disk/file 
management program fea- 
tures an unerase capability 
that supports fixed and re- 
movable hard disks. PC 
Sweep is an enhanced MS 
DOS version of the Sweep 
CP/M software program, 
and runs on the IBM PC/XT/ 
AT. The product allows us- 
ers to search for files and 
determine memory usage 
of each file, view or page 
through document files, 
and access the main menu 
of help screens via one-key 
commands. 

WATFOR-77, the latest 
member of the WATFOR 
family of FORTRAN compil- 
ers, has been released by 
WATCOM Products for the 





IBM PC DOS operating sys- 
tem. By eliminating the 
need to produce object 
files and the linking pro- 
cess, WATFOR-77 can be 
used to develop and debug 
programs. The PC version 
is available for a one-time 
license fee of $295. A site 
can be licensed for $1,200 
(up to 20 computers) or for 
$3,000 (more than 20 com- 
puters) annually. 

Micro Data Base Systems 
has introduced Guru, an 
artificial-intelligence soft- 
ware package developed 
for businesses operating in 
an IBM PC environment. 
Guru integrates expert sys- 
tems capabilities and a nat- 
ural-language interface 
with business tools such as 
spreadsheets, database 
managers, telecommuni- 
cations, and text proces- 
sors. 

Multiple ports on the Mi- 
crofazer II from Quadram 
provide parallel/parallel, 
parallel/serial, serial/seri- 
al, and_ serial/parallel 
modes in a single unit. It 
has an 8K memory that can 
be expanded in incre- 
ments of up to 2 mega- 
bytes. Microfazer II buffers 
print data without using 
up any of the computer's 
memory. It then takes over 
the printing task, freeing 
the computer. 

The CLASIX MultiDrive 
Director from Reference 
Technology is designed to 
increase the number of CD- 
ROM drives attached to a 
personal computer. The 
Director connects up to 
eight DataDrive Series 500 
optical disk drives to a sin- 
gle IBM PC/XT/AT or 
compatible. 

MicroMotion Master- 
FORTH 1.2 for the IBM PC 
line now supports the 
8087 /80287 math coproces- 
sors. The 8087 extension in- 
cludes a macro assembler 
with local labels support- 
ing all precisions, opcodes, 
and synchronization. The 
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floating-point package in- 
cludes transcendental and 
high-level functions as 
well as formatted input 
and output routines. Mas- 
terFORTH 1.2 includes a full 
file interface to MS DOS 
2.1—3.1. It is also available 
for the Macintosh, the Ap- 
ple II line, the Commodore 
64, and CP/M machines. 


Protecting Data 

What happens to all that 
information in the event of 
a power failure? Elgar has 
released Failsafe, a micro- 
computer power-protec- 
tion device. When utility 
power fails, Failsafe is acti- 
vated. After power is re- 
stored, it returns the pro- 
gram to where it left off 
and completes unfinished 
tasks. 

Fastback (Version 5.0) is a 
hard disk backup software 
utility from Fifth Genera- 
tion Systems that backs up 
a 10-megabyte hard disk 
on standard 54-inch flop- 
pies or on the IBM PC/AT. It 
works with PC DOS or MS 
DOS, Versions 2.0 or later. 

Emerald Systems’ Archi- 
val Storage Protector sup- 
ports Novell local area net- 
works, including Netware 
special files. The utility is 
available with Emerald '4- 
inch tape backup subsys- 
tems for both stand-alone 
and networked IBM-com- 
patible microcomputers. 
Volumes range from 30 to 
236 megabytes of format- 
ted capacity. 

Everex has added two 
memory expansion boards 
for the IBM PC/AT and com- 
patibles. The RAM 2500AT 
holds 2% megabytes of 
memory (using 64K RAM 
chips), and the RAM 3000 
AT holds 3 megabytes and 
can use 64K or 256K chips. 

Kustom Electronics has 
introduced the Sunflower 
MS 10 IR, an internal 10- 
megabyte removable hard 
disk kit designed for the 
IBM PC/XT/AT and AT&T 


6300. It is suitable for com- 
panies and government 
agencies handling sensi- 
tive or classified data. 


Communications 
Network Revelation from 
Cosmos is a transaction-ori- 
ented applications envi- 
ronment for microcom- 
puter networks. It uses 
two filing systems: ROS and 
Link. ROS is designed for 
single-user and unshared 
network files. Link ar- 
ranges data into 1K frames 
and allows network lock- 
ing routines to be used. 

The 1200PA, a 212A-com- 
patible modem from Ra- 
cal-Vadic is designed to 
solve application problems 
encountered in dial-up 
modems. A full dialing 
keyboard permits control, 
option setting, dialing, and 
running diagnostics from 
the front panel, eliminat- 
ing pencil switches or de- 
pendence upon terminal 
protocols. 

Torus’ icon-based 
networking software sys- 
tem, Tapestry, runs un- 
modified on IBM’s Token 
Ring networking hard- 
ware. The product inte- 
grates the functions of file 
and record management, 
electronic mail, an inde- 
pendent library of single- 
user and multiuser appli- 
cations software, 
telephone management, 
shared printers and mo- 
dems, and other tools. 

The Zoom Telephonics 
Zoom/Modem PC 1200 for 
the IBM PC/XT/AT and com- 
patibles features call-pro- 
gress tone detection, real- 
time clock/calendar, 
auto-answer touch-tone 
password security, audio 
input port, RAM buffer for 
background — electronic 
messaging, support of four 
COM ports, and a high- 
speed 16450 UART for com- 
patibility with the IBM PC/ 
AT and AT clones. 

The Software Link's 
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Z80 CP/M USERS TAKE HEART! 
HERE'S ALL YOU NEED TO WRITE 
YOUR OWN PROGRAMS FOR ONLY: 


$25.00! 








DR. DOBB'S Z80 TOOLBOOK 


By David E. Cortesi 


Do you use CP/M? Do you feel as if the only part of 
the computer industry that has not abandoned you 
is your own Z80 computer? It keeps on working, but 
when you need programs for it, you have to write 


them yourself. When you do, you quickly find that 
while Pascal or Basic is okay for some things, there is 
often no substitute for the speed, small size, and 
flexibility of an assembly language program. 





DR. DOBB’S Z80 TOOLBOOK puts the power of 
assembly language in the hands of anyone who's 
done alittle programming. You'll fina: 


- A method of designing programs and coding 
them in assembly language—oand—a demon- 
stration of the method in the construction of sev- 
eral complete, useful programs. 


- A complete, integrated toolkit of subroutines 
for arithmetic, for string-handling, and for total 
control of the CP/M file system. They bring the ease 
and power of a compiler’s runtime library to your 
assembly language work, without a compiler's size 
and sluggish code. 


Best of all, every line of the toolkit’s source code is 
there for you to read, and every module's operation 


To order, return this form with your payment, plus $1.75 for 
shipping in the U.S., $3.75 outside the U.S., to: M&T Publishing, 
2464 Embarcadero Way, Palo Alto, CA 94303. 


Or, for faster service on credit card orders, CALL TOLL FREE 
1-800-528-6050, ext. 4001. Refer to item #022 for the Z80 
Toolbook and item #022A for the Z80 Toolbook with the 
disks. Please specify one of the disk formats offered below. 


Send me copies of DR. DOBB’S Z80 TOOLBOOK: 


| 
| 
| 
| 
| 
| 
| 
| 
| SP Ria oe ce 
| 
| 
| 
| 
| 
| 
| 
| 





Send me sets of DR. DOBB’S Z80 TOOLBOOK 
along with the software on disk 
for S40 per set: 





S40 ea 
Subtotal 


(CA residents add applicable % 


sales tax.) 





Shipping 


is explained with the clarity and good humor for 
which Dave Cortesi’s writing is known. 


Order the Z80 Software on Disk! 
Save Yourself the Frustration of File Entry 


All the software in DR. DOBB’S Z80 TOOLBOOK— 
the programs plus the entire toolkit, both as source 
code and as object modules for both CP/M 2.2 and 
CP/M Plus—is yours on disk. (A Z80 microprocessor 
and a Digital RMAC assembler or equivalent are 
required.) 


Receive DR. DOBB’S Z80 TOOLBOOK, along with 
the software on disk, together for only $40. 


For the Z-80 software on disk, please specify one of the following 
formats: 








| 

| 

8” SS/SD Osborne | 

Le daca Kaypro | 
| 

Check enclosed Charge my Amer. Exp. | 
VISA Mic | 

| 

CO a EAP pee | 
a es gg ee | 
NAME | 
ADDRESS , 
Re eek ea ies OUP Bake ZIP | 
| 

Your order will be shipped within 5 days of receipt. 31128 | 


OF INTEREST 
(Continued from page 125) 


MultiLink Advanced and 
LANLink provide a soft- 
ware-driven solution to 
multiuser and shared-re- 
source systems for IBM PCs 
and compatibles. Multi- 
Link Advanced allows you 
to use up to eight dumb ter- 
minals with one micro- 
computer using a floppy 
and the standard RS-232 
port. It can be combined 
with LANLink to create a 
companywide — system 
with as many as 72 work- 
stations operating concur- 
rently. 


Reference Map 
Systems Management, 
3325 Executive Dr., Ra- 
leigh, NC 27609; (919) 878- 
3600, (800) 762-7874. Reader 
Service Number 16. 
Control-C Software, 6441 
S.W. Canyon Ct., Portland, 
OR 97221; (503) 292-8842. 
Reader Service Number 17. 
Morgan Computing, P.O. 
Box 112730, Carrollton, TX 
75011; (214) 245-4763. Read- 
er Service Number 18. 
Real-Time Computer Sci- 





ence Corp., 1390 Flynn Rd., 
Camarillo, CA 93010; (805) 
987-9781. Reader Service 
Number 19. 

Intel, 5000 W. Williams 
Field Rd., Chandler, AZ 
85224; (602) 961-8420. Read- 
er Service Number 20. 
Advanced Logic Research, 
2991 E. White Star Ave., 
Anaheim, CA 92806; (714) 
666-2951. Reader Service 
Number 21. 

Emulex, 3545 Harbor Blvd., 
P.O. Box 6725, Costa Mesa, 
CA 92626; (800) 854-7112, 
(714) 662-5600 in Calif. 
Reader Service Number 22. 
Micro Computer Technolo- 
gies, 1745 21st St., Santa 
Monica, CA 90404; (213) 829- 
3641. Reader Service Num- 
ber 23. 

Data Language, 47 Man- 
ning Rd, Billerica, MA 
01821; (617) 663-5000. Read- 
er Service Number 24. 
Cauzin Systems, 835 South 
Main St., Waterbury, CT 
96706; (203) 573-0150. Read- 
er Service Number 25. 
Advanced Digital Corp., 
5432 Production Dr., Hun- 
tington Beach, CA 92649; 
(714) 891-4004, (800) 251- 
1801. Reader Service Num- 
ber 26. 








Sumitronics, 580 N. Pas- 
toria Ave., Sunnyvale, CA 
94086; (408) 737-7683. Read- 
er Service Number 27. 
Koch Software, 11 W. Col- 
lege Dr., Bldg. G, Arlington 
Heights, IL 60004; (312) 398- 
5440. Reader Service Num- 
ber 28. 

WATCOM Products, 415 
Phillip St., Waterloo, ONT 
N2L 3X2; (519) 886-3700. 
Reader Service Number 29. 
Micro Data Base Systems, 
P.O. Box 248, Lafayette, IN 
47902; (317) 447-1122. Read- 
er Service Number 30. 
Quadram Corp., One Quad 
Way, Norcross, GA 30093- 
2918; (404) 923-6666. Reader 
Service Number 31. 
Reference Technology, 
1832 N. 55th St., Boulder, 
CO 80301; (303) 449-4157. 
Reader Service Number 32. 
MicroMotion, 8726 Sepul- 
veda Blvd., #A171, Los An- 
geles, CA 90045; (213) 821- 
4340. Reader’ Service 
Number 33. 

Elgar, 9250 Brown Deer 
Rd., San Diego, CA 92121; 
(619) 450-0085. Reader Ser- 
vice Number 34. 

Fifth Generation Systems, 
909 Electric Ave., Ste 202, 
Seal Beach, CA 90740; (800) 








225-2775, (213) 439-2191. 
Reader Service Number 35. 
Emerald Systems, 4757 Mo- 
rena Blvd., San Diego, CA 
92117; (619) 270-1994. Read- 
er Service Number 36. 
Everex, 47777. Warm 
Springs Blvd., Fremont, CA 
94539; (415) 498-1111. Read- 
er Service Number 37. 
Kustom Electronics, 8320 
Nieman Rd., Lenexa, KS 
66214; (800) 255-6311. Read- 
er Service Number 38. 
Cosmos, 19530 Pacific High- 
way South, Seattle, WA 
98188; (206) 824-9942. Read- 
er Service Number 39. 
Racal-Vadic, 1525 McCar- 
thy Blvd., Milpitas, CA 
95035; (408) 946-2227. Read- 
er Service Number 40. 
Torus, 411 Seaport Ct., Ste. 
105, Redwood City, CA 
94063; (415) 363-2418. Read- 
er Service Number 41. 
Zoom Telephonics, 207 
South St., Boston, MA 
02111; (617) 423-1072. Read- 
er Service Number 42. 
The Software Link, 8601 
Dunwoody PI. NE, Ste. 632, 
Atlanta, GA 30338; (404) 998- 
0700. Reader Service Num- 
ber 43. 

—Wendelin Colby 

DDJ 








PU ee er ee eat 
PROFESSIONAL} 


Excellent product... best 
screen manager I’ve ever 
seen in any language. 


Don A. Williams 
Finance & Administration 
Honey well 


The word professional 
most certainly describes 
the capabilities this sub- 
routine library provides 
Sor implementing inter- 
rupt service and pop-up 


routines. 


Computer Language Magazine 


Get the tools that have no competition. 


TURBO PROFESSIONAL’s easy to use routines let you... 
write safe, ‘‘sidekickable’’ routines that can use DOS 

* execute DOS commands from Turbo * create super-fast 
windowed displays * service interrupts without assembler 
* make your own keyboard enhancers ¢ allocate memory 
from DOS ° print concurrently with DOS 3.x. 


Complete with 109 + routines, manual, source code to 
Super Macs keyboard enhancer, and many example 


programs. 


Visa, MasterCard ok. 
Order now! 
(206) 367-0650 


Only $49.95 + $5.00 shipping & handling 


Sunny Hill Software 
13732 Midvale North Suite 206 
Seattle, Washington 98133 


Requires Turbo for compatibles. Turbo Pascal & Sidekick Trademark Borland Intl. 


Circle no. 172 on reader service card. 
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DeSmet 













8086/8088 
Development ] 09 
Package 
FULL DEVELOPMENT PACKAGE 

= Full K&R C Compiler 
Assembler, Linker & Librarian 
Full-Screen Editor 


= Execution Profiler 
- Complete STDIO Library (>120 Func) 


Automatic DOS 1.X/2.X SUPPORT 


BOTH 8087 AND S/W FLOATING POINT 
OVERLAYS 


OUTSTANDING PERFORMANCE 
- First and Second in AUG ’83 BYTE 
benchmarks 





SYMBOLIC DEBUGGER ‘50 


Examine & change variables by 
name using C expressions 


- Flip between debug and display 
screen 


- Display C source during execution 
- Set multiple breakpoints by function 


or line number 
















DOS LINK SUPPORT 


- Uses DOS .OBJ Format 
- LINKs with DOS ASM 
- Uses Lattice® naming conventions 


Check: O Dev. Pkg (109) 
CL) Debugger (50) 
O DOS Link Supt (35) 


SHIP TO: 


| 

| 

| 

| 

| 

| 

| 

| 

| ae tesa ems a ae 

| 

| WARE 
| CORPORATION 
| P.O. BOX C 

| Sunnyvale, CA 94087 
| 

| 

| 

| 

| 


(408) 720-9696 


All orders shipped UPS surface on IBM format disks. 
Shipping included in price. California residents add 
sales tax. Canada shipping add $5, elsewhere add 
$15. Checks must be on US Bank and in US Dollars. 
Call 9 am.- 1 pm. to CHARGE by VISA/MC/AMEX. 
Street Address: 505 W. Olive, #767, (94086) 
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AT” Pfantasies for your PC or XT." 


Want better speed and memory on your hardware-dependent programs and 


PC or XT without buying an AT? 

You've got it! 

Phoenix’s new Pfaster'™286 co-processor 
board turns your PC or XT into a high- 
speed engine 60 percent faster than an 
AT. Three times faster than an XT. It even 
supports PCs with third-party hard disks. 
But that’s only the beginning. 

You can handle spreadsheets and programs 
you never thought possible. Set up RAM disks in 
both 8088 and 80286 memory for linkage editor 
overlays or super-high-speed disk caching. All with 


Pfaster286’s Imb of standard RAM, expandable to 
2mb, and dual-mode design. 


You can develop 8086/186/286 software on your XT 
faster. Execute 95 percent of the application packages 


by 
that run on the AT, excluding those that require fancy I/O ° 
capabilities your PC or XT hardware just isn’t designed 
to handle. Queue multi-copy, multi-format print jobs for 
spooling. Or, switch to native 8088 mode to handle 


XT and AT are trademarks of International Business Machines Corporation. Pfaster286 and Programmers’ Pfantasies are trademarks of Phoenix Computer Products Corporation. 
For the Ferrari aficionado: yes. we know this is a rear engine car. We are showing the addition of a second engine to symbolize how Pfaster can be added to your PC or XT to increase performance. 


back again without rebooting. All with 
Pfaster286’s compatible ROM software. 
And, Pfaster286 does the job unintrusively! 
No motherboard to exchange. No wires to 
solder. No chips to pull. Just plug it into a 
standard card slot, and type the 

magic word, ““PFAST”’ 

If you really didn’t want an AT in the first. 
place, just what it could do for you, call or 
write: Phoenix Computer Products Corp., 
320 Norwood Park South, Norwood, MA 
02062; (800) 344-7200. In Massachusetts, 
617-762-5030. 





Programmers’ Pfantasies'! 


Circle no. 91 on reader service card. 





How Borland’s Three New Holiday 
Packs Will Fill Your Stocking Without 
Emptying Your Piggybank. 


Nevis TURBO GAMEWORKS = $69.95. 
Our new Turbo GameWorks offers games you can play and replay 

‘ without Turbo Pascal or revise and rewrite with Turbo 
Pascal 3.0. We give you the source code, the 
manual, the diskettes and the competi- 
tive edge. Chess, Bridge and Go-Moku. 
State-of-the-art games that let you be play- 
er, referee, and rules committee all at once 
because you have the Turbo Pascal source 
code. Learn exactly how the games are 
made—so you can go off and make your 
own. And Turbo GameWorks is the only quality 
game you can buy that is not copy-protected. 
Sold separately, only $69.95. (Just $47.50 if you 
buy the Turbo New Pack. ) 


TURBO EDITOR 
TOOLBOX $69.95. 


Build your own word processor—for only $69.95! 

You get ready-to-compile source code, a ful- 
featured WordStar™-like word processor, anda 200- 
page manual that tells you how to integrate the editor | 

procedures and functions into your programs. With _ 
Turbo Editor Toolbox, you can have the best of all 
word processors. You can make WordStar behave like = 

Multi-Mate. Support windows just like Microsoft's 
@ TURBO TUTOR teaches you step-by-step Word. And do it as fast as WordPerfect does it 
how to use Turbo Pascal with eee Incorporate your new ‘hybrids’ into your prc 
source code for all pro diskette. "grams to achieve incredible control and power. S 

SE TOO | e probl ee only $69.95. (if you buy the Turbo New = 
the price = 10 ce ae 30. 


Three special packs with dazzling discounts that will help get 
you into a Holiday mood. You can get some of Turbo, most of 
Turbo, or all of Turbo—including the two newest 
members of the Turbo family, Turbo GameWorks™ and 
Turbo Editor Toolbox™ You also get our unmatched 60- 
day money-back guarantee, quality products 
that aren't copy-protected. 


TURBO NEW PACK $95.00. 

You get the two exciting new members of the 

Turbo Pascal family, 

@ TURBO GAMEWORKS, Chess, Bridge, and Go- 
Moku, complete with source code and a 200- 
page manual. 

@ TURBO EDITOR TOOLBOX, all the building 
blocks to make your own editors and word 
processors, complete with source code and a 
200-page manual. 


TURBO HOLIDAY PACK $125.00. 

You get all three of the Turbo family classics 

for only $125.00 (about a 30% discount). Turbo 

Pascal 3.0 and Turbo Tutor and Turbo Data- 

Base Toolbox—all for just $125.00. 

© TURBO PASCAL combines the fastest Pascal _ 
compiler with an integrated develop- 
ment environment. 
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